Do you want to copy to Range("A1") of each sheet or to TextBox1 of each sheet?

If to Range("A1"):

Sub cpyToRngA1()
For i = 2 To Sheets.Count
Worksheets(i).Range("A1") = Worksheets(1).TextBoxl1.Value
Next
End Sub

If to TB1 on each sheet:

Sub cpyToTB1()
For i = 2 To Sheets.Count
Worksheets(i).TextBox1.Value = Worksheets(1).TextBox1.Value
Next
End Sub


"LRay67" wrote:

I am trying to copy a textbox to another textbox in multiple sheets within
the workbook. Below is what I use to copy to one additional worksheet, but
not multiple worksheets after the 2nd. Can anyone help? Thanks

Worksheets(2).Range("A1") = Worksheets(1).TextBox1.Value

Linda