Auto Workbook open by sheet number not name.

[Dibbley247]

Hi guys

I have the following Macro

Please Login or Register  to view this content.

However, How do I change this to work only on 3 specific sheets as number E.G

Sub Selectsheet()
Worksheets(1).Activate

End Sub

As there are about 16 sheets, and only 4 of them this code will be used on.
Conditional formatting is out of the question, as alot of dragging and dropping is used which removes it.
Can not give an actual sheet name, as these change every week, but they will always be on the same sheet numbers E.G Sheets 1,2,3,4

The ranges on this look small, as i'm only playing around at the moment to test what does what.

Thanks.

[Sean Thomas]

try looping through the worksheets

Please Login or Register  to view this content.

[Dibbley247]

Thanks

Luckily the sheets in question are sheet 13,14,15,16 so are in order, so i'll cahnge it to 13 to 16, I'll try it out in a couple of hours, and let you know how i got on!

Thanks alot.

[Sean Thomas]

The problem with what you are doing is if you don't know the sheet names or sheet index it gets difficult.
If you don't know the above, then if there is something in common on each of the sheets then you can use an if statement

Please Login or Register  to view this content.

[Dibbley247]

I've tried the first one you've posted on my tset workbook, and it's working fine

The tab names are actually dates and we have 4 weeks worth. but the ones that I want to run on are always going to be sheets 13,15,15,16 so i think it will be just fine.

I was thinking of only doing the current weeks tab by having a a formula on a spare sheet, which would show the date of the tab I want, then have a macro look at what that cell value is and then find the tab with the same value. but no need now.


Many Thanks.