"Gary''s Student" wrote:

Sub renamre()
Sheets("Sheet1").Activate
n = Cells(Rows.Count, 1).End(xlUp).Row
For i = 1 To n
Sheets(i + 1).Name = Cells(i, 1).Value
Next
End Sub

--
Gary''s Student - gsnu200772

Gary,

Thank you for the answer, but will this be automatic - i.e. as soon as
cell A1 is changed, sheet2 is renamed?

Thanks