Worksheets(1).Range("E13").Value = Worksheets(1).Name

this allows you to control a loop to name all sheets eg...

Dim xs as integer
for xs = 1 to worksheets.count
worksheets(xs).Range("E13").Value = Worksheets(xs).Name
next xs

or simply for the current sheet just use.....

Range("E13").Value = ActiveSheet.Name

--
Cheers
Nigel



"DC appleyards" <DC wrote in message
...
We have a series of sheets within one workbook. On each worksheet we want
the
name of the worksheet (tab) to appear in a specific cell.

i.e E13 = the worksheet (tab) name