I have a code which should prevent people scrolling out of a certain area but it doesnt quite work. My code is
Private Sub auto_open()
Worksheets("JAN07").ScrollArea = "$a$1:$GI$499"
Worksheets("FEB07").ScrollArea = "$a$1:$GI$499"
Worksheets("MAR07").ScrollArea = "$a$1:$GI$499"
Worksheets("APR07").ScrollArea = "$a$1:$GI$499"
Worksheets("MAY07").ScrollArea = "$a$1:$GI$499"
Worksheets("JUN07").ScrollArea = "$a$1:$GI$499"
Worksheets("JUL07").ScrollArea = "$a$1:$GI$499"
Worksheets("AUG07").ScrollArea = "$a$1:$GI$499"
Worksheets("SEP06").ScrollArea = "$a$1:$GI$499"
Worksheets("OCT06").ScrollArea = "$a$1:$GI$499"
Worksheets("NOV06").ScrollArea = "$a$1:$GI$499"
Worksheets("DEC06").ScrollArea = "$a$1:$GI$499"
Worksheets("JAN07").ScrollArea = "$a$1:$GI$499"
Worksheets("FEB07").ScrollArea = "$a$1:$GI$499"
End Sub
It locks when I get to column EN not GI, would there be a reason for this ?
Cheers
Paul
Private Sub auto_open()
Worksheets("JAN07").ScrollArea = "$a$1:$GI$499"
Worksheets("FEB07").ScrollArea = "$a$1:$GI$499"
Worksheets("MAR07").ScrollArea = "$a$1:$GI$499"
Worksheets("APR07").ScrollArea = "$a$1:$GI$499"
Worksheets("MAY07").ScrollArea = "$a$1:$GI$499"
Worksheets("JUN07").ScrollArea = "$a$1:$GI$499"
Worksheets("JUL07").ScrollArea = "$a$1:$GI$499"
Worksheets("AUG07").ScrollArea = "$a$1:$GI$499"
Worksheets("SEP06").ScrollArea = "$a$1:$GI$499"
Worksheets("OCT06").ScrollArea = "$a$1:$GI$499"
Worksheets("NOV06").ScrollArea = "$a$1:$GI$499"
Worksheets("DEC06").ScrollArea = "$a$1:$GI$499"
Worksheets("JAN07").ScrollArea = "$a$1:$GI$499"
Worksheets("FEB07").ScrollArea = "$a$1:$GI$499"
End Sub
It locks when I get to column EN not GI, would there be a reason for this ?
Cheers
Paul