Try

Worksheets("Sheet6").Name = Worksheets("Sheet6").Range("A1").Text


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com



"Vispy" wrote in message
...
Is there a way to name the sheet or a tab of the sheet with a
value of a
cell on that sheet?


====== SNIP

Cells.Select
Selection.Copy
Windows("Verification.xls").Activate
ActiveSheet.Paste
Range("A1").Select
Sheets("Sheet6").Select
Sheets("Sheet6").Name = "2" <<<===== manually added but
the value is
on cell D1 of that sheet.

====== SNIP

Thanks!!