Can anyone tell me why the code below, only places the text on the first
worksheet, even though all worksheets are selected?


Private Sub CommandButton1_Click()

Dim Rng

'Application.ScreenUpdating = False

Sheets(Array("June - August", "September - November", "December -
February", _
"March - May")).Select
Sheets("June - August").Activate

Range("A200").Select

Set Rng = Cells(ActiveCell.Row, 1)

Rng(1, 1).Value = TextBox1.Text
Rng(1, 2).Value = TextBox2.Text
Rng(1, 4).Value = TextBox3.Text

End Sub