Automatic rename of Excel Worksheets

  stubacka2 11:40 29 Jun 2006

Is there an easy way to automatically rename a large number of worksheets within an Excel workbook numerically from 1 to ?????????? (say 200)

  VoG II 11:47 29 Jun 2006

Sub RNM()
Dim n As Integer, wsht As Worksheet
n = 0
For Each wsht In Worksheets
n = n + 1
wsht.Name = n
Next wsht
End Sub

  stubacka2 11:54 29 Jun 2006

Thanks VoG

Spot on as usual

This thread is now locked and can not be replied to.

Elsewhere on IDG sites

Samsung Galaxy S9 review

Explore Milton Glaser's iconic poster designs from the 1960s to present, including Bob Dylan, I…

What to expect at Apple's 27 March education event

Idées cadeaux pour geeks et tech addicts