Start from Sheet 1

[omkar94]

Hi Guys,

I need a VBA code that when executed it will do as mentioned below:

- When I click on 'add sheet' button It will start from Sheet 1, instead of Sheet (x).


Please let me know if this is possible or if you need any clarification from my end.

Thanks a ton.

 

[omkar94]

Hi guys, not sure if above message is confusing. Please ignore and read the revised version.

My below current code deletes all the sheets except "Generate Tables" sheet.
Can someone help modify it so once code is executed it will do as mentioned below:

- When I click on 'add sheet (+)' button It will start from Sheet 1, instead of Sheet (x).
- (x) = last known sheet number + 1

Please let me know if this is possible or if you need any clarification from my end.

Current Code:


Dim xWs As Worksheet
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For Each xWs In Application.ActiveWorkbook.Worksheets
If xWs.Name <> "Generate Tables" Then
xWs.Delete
End If
Next
Application.DisplayAlerts = True
Application.ScreenUpdating = True


Thanks again.