I am trying to generate two random integers 0 and 1 in a range using vba; However when i run the sub it only fills the cells with the **same value**; either 1 or 0. 
Where is the problem with the code?

```
Private Sub Btn_RandomNumbers_Click()
 ThisWorkbook.Sheets("Sheet1").Range("c3:c302").value = 
Application.Choose(Application.RandBetween(1, 2), 0, 1)
End Sub

```