Place the following in a general Visual Basic Module. This should give you
an idea of how to do what you want. The subroutine renames both worksheets
and chart sheets. You can modify to suit your needs.

HTH,

Eric

Sub Worksheet_Name_Change()
Dim ws As Worksheet
Dim ch As Chart
'
For Each ws In ActiveWorkbook.Worksheets
ws.Name = ws.Name & " Jan"
Next ws
'
For Each ch In ActiveWorkbook.Charts
ch.Name = ch.Name & " Jan"
Next ch
'
End Sub



"Akash" wrote:

Hi,

I have a worksheet with the Sheet named as:

Item 1
Item 2
Item 3
Item 4
Item 5
Item 6

I want a code through which i can change the Work Sheet Name as

Item 1 Jan
Item 2 Jan
Item 3 Jan
Item 4 Jan
Item 5 Jan
Item 6 Jan

Require your guidance to over come this problem which i have so many
sheets in one file and i had to rename all sheets every month.

Awaiting for your response.

Regards

Akash Maheshwari
.