I am trying to get the contents of TextBox1 and Textbox2 to be placed into
the 1st and 2nd cell of the current row of all worksheets. I have tried to
alter the code below, but nothing seems to work.



Private Sub CommandButton1_Click()

Module1.Unprotect_All_Sheets

'This UserForm is used to populate the worksheet

Dim SH As Worksheet
Dim rng As Range

For Each SH In ActiveWorkbook.Worksheets
SH.rng(1, 1).Value = TextBox3.Text
SH.rng(1, 2).Value = TextBox5.Text
Next SH

wb.Activate
ws.Select
c.Select

Unload Correct_Information
Unload Meeting_Attendance

End Sub