• Hi All

    Please note that at the Chandoo.org Forums there is Zero Tolerance to Spam

    Post Spam and you Will Be Deleted as a User

    Hui...

  • When starting a new post, to receive a quicker and more targeted answer, Please include a sample file in the initial post.

Renaming sheets with series month name without reference to cells or array

How could I rename all of my sheets with names Jan, Feb, Mar,…..Nov, Dec and one with total.
Is possible without using any range reference.
I have listened about like method will it give solution for renaming it.


Regards,
 
How could I rename all of my sheets with names Jan, Feb, Mar,…..Nov, Dec and one with total.
Is possible without using any range reference.
I have listened about like method will it give solution for renaming it.


Regards,
Hi,

This code will do that

Code:
Sub name_sheets()
Dim x As Long
On Error Resume Next
For x = 1 To 12
Sheets(x).Name = Format(DateValue("1/" & x & "/2014"), "mmm")
Next
On Error GoTo 0
End Sub
 
Thanks mike 4 your kind revert i tried to use code but not working where should i change
PFA
 

Attachments

  • Sheet Rename A2C.xlsm
    21.6 KB · Views: 1
Thanks Mike for helping me out of this
I was wondering that why it was not working on my system
but after few amendments it is working
I changed coding from
Code:
Sheets(x).Name = Format(DateValue("1/" & x & "/2014"), "mmm")
by below one
Code:
Sheets(x).Name = Format(DateValue(x & "/1" & "/2014"), "mmm")

Regards
GauravKrGautam
 
Back
Top