Naming a sheet after a value in a cel of that sheet

V

Vispy

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!!
 
C

Chip Pearson

Try

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


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