Sub tester()
Dim iWS As Integer
Dim rNames As Range

Set rNames = Range("myNames")
For iWS = 1 To rNames.Count
Worksheets(iWS).Name = rNames(iWS)
Next iWS
End Sub


(no error trapping)

HTH
--
AP

"MarvInBoise" a écrit dans le
message de news: ...
Would like to use a custom list, or a range name, or simply a range with
names to define my worksheet names via VBA; can do?
--
Marv Lusk
Boise Corporation