Pasting TextBox text
 

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

Pasting TextBox text
 

Hi Patrick,

Excel's ability to duplicate enties in each member of an array of grouped
sheets is not exposed to VBA.

Try instead the following adaptation of your code:

'=============
Private Sub CommandButton1_Click()
Dim SH As Worksheet
Dim Rng
Dim arr As Variant
Const baseCell As String = "A200"

arr = Array("June - August", "September - November", _
"December -February", "March - May")

For Each SH In Sheets(arr)

Set Rng = SH.Range(baseCell)

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

Next SH

End Sub
'<<=============


---
Regards,
Norman


"Patrick Simonds" wrote in message
...
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