Define sheet names VBA

[erlisocial]

Hi,

I have over 100 sheets with different names. (ABC, CDE, ENT etc). I have a VBA which requires the sheet selection many times throughout the code. I need to repeat the same code for the next sheet. Rather than me having to rename all the Sheets on my VBA code, is there a way were I can define that name and just change it once at the beginning of my statement and the Sheets to pick up that name and update my VBA code?

Many thanks in advance

Sub Sheet1 ()


''
Sheets("ABC").Select
Sheets("ABC").Select
Sheets("ABC").Select
Sheets("ABC").Select

''
End Sub

 

[erlisocial]

How about an input box that changes the sheet name?

Sub Test()
Dim ws As Worksheet
Set ws = InputBox("What Sheet to Name?")
'use ws to identify your sheet with your actions
'ie.  with ws
' Your code for the worksheet

End Sub

Thanks mate used Fluff's method but will keep your option as a backup. Cheers

 

[Fluff]

Glad we could help & thanks for the feedback.