Thank you! that works wonderfully.
"Adamaths" wrote:
I can't guarantee success but someting along the lines of the below
should work:
Dim OriginalName as String
Dim NewName as String
For x = 1 To ThisWorkbook.Worksheets.Count
OriginalName=ActiveSheet.Name
NewName = OriginalName & Range("A1").Value
ActiveSheet.Name = NewName
Next x
Change the Range("A1") to be the range of whatever the common cell is
and if needed change this formula so it puts the original name etc. in
a different order.
Should work.
--
Adamaths
------------------------------------------------------------------------
Adamaths's Profile: http://www.excelforum.com/member.php...o&userid=31580
View this thread: http://www.excelforum.com/showthread...hreadid=512790