Hello everyone, I'm trying to name 28 consecutive sheets beginning with the date that is in on the "RVSD Squad 1" worksheet in cell S1. The following sub works fine for the 1st sheet but I can't seem to get it to work when I go to the next sheet. I'm naming the sheets with the month and day "Jan 27". The next sheet needs to be named "Jan 28" and so on for 28 days. Adding 1 to Day doesn't work. Can someone steer me in the right direction.
Thanks
Gary
[VBA]
Sub NamePers()
Dim Sheet As Integer
Dim Day
MyDate = Worksheets("RVSD Squad 1").Cells(1, 19).Value
Day = Format(MyDate, "mmm d")
For Sheet = 8 To 9
Sheets(Sheet).Activate
With ActiveSheet
.Name = Day
End With
MyDate = MyDate + 1
Next Sheet
End Sub
[/VBA]