Thread: Automatic Sheet Naming
View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.programming
Gary''s Student Gary''s Student is offline
external usenet poster
  
Posts: 11,058
Default Automatic Sheet Naming
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
Reply With QuoteReply With Quote