Jan

Sub sheetname1()
ActiveSheet.Name = Format(Now(), "dddd-mmm-yy")
End Sub

Sub sheetname()
ActiveSheet.Name = Range("c1")
End Sub

Gord Dibben Excel MVP

On Thu, 11 Dec 2003 17:21:47 GMT, "Jan Eikeland" wrote:

hi.
Cant figure how to set name on diffrent worksheets.
any help?

thank you
regards jan