macro help

M

michael

I would like to create a macro that will increase
numerically the worksheet number.
 
H

Harald Staff

Sub AddOne()
On Error Resume Next
ActiveSheet.Name = CStr(Val(ActiveSheet.Name) + 1)
End Sub

HTH. best wishes Harald
 
Top