Hi Philip

The code below is one way of doing it

Option Explicit
Dim i As Integer
Dim Ctrl As Control
Private Sub CommandButton1_Click()

For i = 1 To 4

Set Ctrl = UserForm1.Controls("CheckBox" & i)

If Ctrl.Value = True Then

Sheets(i).Activate

ActiveWindow.SelectedSheets.PrintOut _
Copies:=1, Collate:=True

End If

Set Ctrl = Nothing

Next i

End Sub

Private Sub CommandButton2_Click()

If TextBox1.Value = "user2" Then

With Sheets(6)

.Unprotect ("user1")
.Cells(33, 6).Value = TextBox2.Value
.Protect ("user1")

End With

End If

End Sub