Rename worksheets using vba

  • Thread starter Thread starter Jerry B
  • Start date Start date
J

Jerry B

Hi Guys,
How can I name the worksheet based on an entry in a cell. Example cell "A1"
contains week one., workbook contains 52 sheets, I would like to name the
worksheets consecutivley .

TIA
Jerry
 
Sub ShtNames()

For Each Sht In ActiveWorkbook.Worksheets
With Sht
.Name = .Range("A1").Value
End With
Next Sht

End Sub
 
You must log in or register to reply here.

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Excel VBA 1
Vba Help with Information Extraction 0
Excel Copy cells from one worksheet to another workseet - increment row & do again 0
Macro to print specified range of several work sheets 2
Excel VBA help: Text file formatting 19
Renaming worksheets 2
Return All Sheets to Cell A1 before save 2
VBA over-write identical worksheet-ranged-cells only if receiving sheet's cell is empty 4

Back
Top