Sub missive()
s = Array("jan", "feb", "mar", "apr", "may", "jun", "jul", "aug", "sep",
"oct", "nov", "dec")
For i = 1 To 12
Sheets(i).Name = s(i - 1) & " 2008"
Next
End Sub

mind the text wrapping!!
--
Gary''s Student - gsnu200759