VBA ScrollArea = "Range"

[Pinaceous]

Hi All,

Is there a way to VBA ScrollArea all of the EVEN sheet numbers to

"A1:L80"

AND ScrollArea all of the ODD sheet numbers to

"A1:BK80"

??


Thank you!

Pinaceous

 

[Peter_SSs]

Re: VBA scroll area for odd sheets

You are welcome.

 

[Pinaceous]

Re: VBA scroll area for odd sheets

Hi Peter,

I'm having a little difficulty in applying this code that you last posted.

WRT, the actual tab/sheet that I want to omit from the code lock is actually Sheet(4), where its physical location in workbook lies in the 2ND tab being part of the EVEN

ScrollArea

when applied across the workbook.

I know this because when I run the code, it provides a scroll lock on Sheet(4)

of which I've named "TOTALS"

Sheet4(TOTALS)

for the ODD lock of the

ScrollArea = "A1:L80"

code, where I'd originally thought it was being applied over the EVEN tabs of

ScrollArea = "A1:BK80"

.



When I do run your code, I've noticed that it doesn't seem to omit any sheets from the

ScrollArea

as far as I can tell. Where, I did check all of the sheets/tabs that I do have on the workbook.(?)



I'd thought that if I changed what you provided that I'd get it to work; for example:

For i = 2 To Sheets.Count Step 2
    If i <> 2 Then Sheets(i).ScrollArea = "A1:L80"
Next i

But it is not working and I need your help.

Any suggestions??

Thank you!

Pinaceous


PS. Just out of curiosity, why doesn't this part of the code require an

End IF

statement?

 

[Peter_SSs]

Re: VBA scroll area for odd sheets

I didn't understand everything that you wrote, but the following code will bypass Sheets(2), not Sheets(4). You would need to change the red 2 in the code to 4 if you want to bypass the 4th sheet from the left hand side.

I'd thought that if I changed what you provided that I'd get it to work; for example:

For i = 2 To Sheets.Count Step 2
    If i <> [COLOR="#FF0000"][B]2[/B][/COLOR] Then Sheets(i).ScrollArea = "A1:L80"
Next i

PS. Just out of curiosity, why doesn't this part of the code require an End IF statement?

Because there is only a single statement following the If ... Then and that statement is written on the same line, not a new one.

 

[Pinaceous]

Re: VBA scroll area for odd sheets

Hi Peter!

Yes, that helps quite a bit!

Respectively,
Pinaceous