Select the 12 worksheets first.

Option Explicit
Sub testme()
dim wks as worksheet
for each wks in activewindow.selectedsheets
wks.name = wks.name & " " & wks.range("W1").value
next wks
end sub

The new names will be like:
Jan 2008
(old name, space character, value in W1 of that sheet).

Remember to ungroup the sheets when you're done.

"Patrick C. Simonds" wrote:

I have a 12 worksheets labeled Jan, Fed, Mar ect.. What I need is something
which will rename the tabs to include the correct year and that value will
be found in cell W1 of each sheet.

--

Dave Peterson