Name sheet tabs with a cell list
I have a list of names from cell A1..A80. I want to automatically create
that many tabs and name each tab by each name in the list. Can this be automated? Thanks in advance! |
Name sheet tabs with a cell list
Sub tester()
Dim rCell As Range For Each rCell In Range("A1:A80") With Worksheets.Add(after:=Worksheets(Worksheets.Count) ) .Name = rCell.Value End With Next rCell End Sub HTH -- AP "deeds" a écrit dans le message de news: ... I have a list of names from cell A1..A80. I want to automatically create that many tabs and name each tab by each name in the list. Can this be automated? Thanks in advance! |
Name sheet tabs with a cell list
Worked great!! Thanks much!
"Ardus Petus" wrote: Sub tester() Dim rCell As Range For Each rCell In Range("A1:A80") With Worksheets.Add(after:=Worksheets(Worksheets.Count) ) .Name = rCell.Value End With Next rCell End Sub HTH -- AP "deeds" a écrit dans le message de news: ... I have a list of names from cell A1..A80. I want to automatically create that many tabs and name each tab by each name in the list. Can this be automated? Thanks in advance! |
All times are GMT +1. The time now is 03:57 PM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com