Object sheet name and scroll limit not working.

I have 5 sheets in my workbook. I am trying to limit the scroll area in ThisWorkbook in the design area. I have different scroll areas for each sheet. I'm using the code
Private Sub Workbook_Open()

Sheets(1).ScrollArea = "A1:N340"
Sheets(2).ScrollArea = "A1:H125"
Sheets(3).ScrollArea = "A1:L3415"
Sheets(4).ScrollArea = "A1:Z1000"
Sheets(5).ScrollArea = "A1:L529"

The problem is that sheet(5) horizontal scroll locks up when I assign it this limit. If I comment out the scroll area for sheet(5) it have no problem. Could there be some kind of assignment error. I've also noticed that sheet(4) takes on the limits of sheet(5). ???#@#

I start out with 3 sheets and added the other two later. I don't know if this has anything to do with it.

Thanks for any help.

HuggyBear

Maybe the worksheets Index changed when you added/removed sheets.

Maybe you could reference them by sheet name or codename.