Thanks David it Works Great.
Thanks Again to Everyone for the Replies, it is Appreciated.

All the Best.
Paul


David McRitchie wrote:
Forget all the extra coding, you already have the sheetname
that you are assigning, so you just need one more line of code.

Sub Test()
Dim i As Integer
Application.ScreenUpdating = False
For i = 1 To 10
Sheets("Master").Copy After:=Sheets(Sheets.Count)
Sheets("Master (2)").Name = Format(i, "0000")
ActiveSheet.Range("A1") = "'" & Format(i, "0000")
Next
Application.ScreenUpdating = True
End Sub

If you are not careful your sheetnames of all digits might
still get you into trouble later on.
---
HTH,
David McRitchie, Microsoft MVP - Excel [site changed Nov. 2001]
My Excel Pages: http://www.mvps.org/dmcritchie/excel/excel.htm
Search Page: http://www.mvps.org/dmcritchie/excel/search.htm

"Paul Black" wrote in message
I have Tried to get the WorkSheet Name in Cell "A1" of EVERY WorkSheet