Sub TABNAME()
ActiveCell.Value = ActiveSheet.Name
End Sub

Hope this is what ur after
r
Pete

--
(][ This Email has been scanned by Norton AntiVirus. ][)
"dfrosticle" wrote in message
...
I have tried using the following but there must be a better and easier way
to
get the &[Tab] name into a cell of a sheet. Any ideas anyone ??