Renaming Excel Sheets month on month using VBA

[navnav21]

Hi I have about 100 excel sheets in a workbook that i need to rename in the format "01.01.2011" , "01.02.2011" , "01.03.2011" and so on until the last sheet is renamed. Can someone please help me on how to do this using VBA please?

Thank you in advance!

 

[mrshl9898]

Try this:

Sub DoTheThing()

Dim ws As Worksheet
Dim myDate As Date

myDate = "01/01/2011"

For Each ws In ThisWorkbook.Worksheets
    ws.Name = Format(myDate, "DD.MM.YYYY")
    myDate = DateAdd("m", 1, myDate)
Next ws

End Sub

 

[navnav21]

Hi Thank you so much it worked. But when i ran it again, there was some error as they said "this name is taken"

What do I do? Thank you very much for the earlier help once again.

 

[Michael M]

It simply means you already have a worksheet by that name ....but, why would you want to run it more than once ??