Or:

With Sheets("Week 1").Range("B3")
.Value = .Value + 1
End With

If the code is to be executed on the active sheet you can use:

With Range("B3")
.Value = .Value + 1
End With

Regards

Paul Martin
Melbourne, Australia