You could try pasting this code in the "ThisWorkbook" section

It will automatically insert the name into the cell. If this is for
printing, I'd recommend selecting the footer/header from the print setup....

Private Sub Workbook_NewSheet(ByVal Sh As Object)
Range("E13").Select
ActiveCell.Value = ActiveSheet.Name
End Sub


"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