First step is declare a variable to hold the sheet names: I use one
called SheetName:

dim SheetName

Then set up a FOR...NEXT loop to repeat your code for each worksheet:

For each SheetName in Sheets
Sheets(SheetName).Select
[Lots of code here]
Next SheetName