Just use:


Sheets("Sheet1").Name = Sheets("Sheet1").Range("A1")

or

Sheets("Sheet1").Name = yourStringVariableHere

or

Sheets("Sheet1").Name = Sheets("Sheet1").Range
(yourrangenamevariable)

or

Sheets("Sheet1").Name = Sheets("Sheet1").cells(1,1)


etc

ttfn benm