If CheckBox1 = False And CheckBox2 = False And CheckBox3 = False And
CheckBox4 = False And CheckBox5 = False Then GoTo Here
Sheet1.Unprotect
Dim rngFound As Range
On Error Resume Next
With Worksheets("Main").Range("B17:B28")
Set rngFound = .Find(What:=Sheet5.Range("B1").Value, After:=.Range("B16"),
LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByRows,
SearchDirection:=xlNext, MatchCase:=True, matchbyte:=False)
If Sheet5.Range("B1").Value = rngFound.Value Then
rngFound.Offset(0, 1).Activate
rngFound.Offset(0, 1).Value = Format(Now, "mmmm yy")
MsgBox "The selected Report pages have been sent to the printer",
vbInformation, " ...."
Sheet1.Protect
With ActiveSheet
Range("A1").Select
End With

Came up with this, but i get nothing placed in sheet1, why ?

Sheet5 Range(B1) has a value of "January 07" and
sheet1 has a value of "January 07" yet C17 does NOT get a value placed in
it????

Corey....