Hello from Steved

I pickup the below from the newsgroup.

Please how to I add the extra worksheets another 8. I will name them
Roskill, Papakura, Wiri, Shore, Orewa, Swanson, Panmure and Waiheke.

Sub AddNameNewSheet2()
Dim CurrentSheetName As String
CurrentSheetName = ActiveSheet.Name
Sheets.Add
On Error Resume Next
ActiveSheet.Name = "City"
Do Until Err.Number = 0
Err.Clear
Loop
On Error GoTo 0
Sheets(CurrentSheetName).Select
End Sub
Thankyou.