You don't need it, just use

For Each xlSht In Worksheets



"Akash" wrote in message
...
Hi,

Thanks for the support, but i am getting a error message as Invalid
use of ME keyword.

Akash

On Dec 15, 7:10 pm, "Rod" wrote:
Open Visual Basic editor (via Tools, Macros
Do "View" followed by "Project Explorer"
Select ThisWorkbook from left hand window

paste in this code and run it from Tools, Macros

This will append the month you enter to all sheet names.
Maybe if you have other sheets you will next some logic to restrict to
ones
called Item

_____________________
Option Explicit

Public Sub ReNameSheets()

Dim xlSht As Worksheet
Dim TheMonth As String

TheMonth = InputBox("Enter month")

For Each xlSht In Me.Worksheets
xlSht.Name = xlSht.Name & " " & TheMonth
Next xlSht

Set xlSht = Nothing

End Sub
__________________________

"Akash" wrote in message

...

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

AkashMaheshwari