Hi!
The following code work fine in xl2002 but wont work in xl2000.
I have 2 buttons that run the following code, could someone take a loo
and tell me why it does not work.

Thanks for your help,
Nolin


Private Sub btnHide_Click()
On Error Resume Next
Application.ActiveWorkbook.Unprotect
Application.ActiveSheet.Unprotect
Application.ScreenUpdating = False
Worksheets("Purchase").ScrollArea = ("a1:i60")
Worksheets("Purchase").Range("f24:i29").Cut
Worksheets("Purchase").Paste Destination:=Worksheet
_("Purchase").Range("f54:i59")
Worksheets("Purchase").Range("f24:i29").Select
Selection.Interior.Color = RGB(223, 223, 232)
Worksheets("Purchase").Range("d10").Select
Worksheets("Purchase").btnHide.Visible = False
Worksheets("Purchase").btnShow.Visible = True
Worksheets("Purchase").Image4.Visible = True
Worksheets("Purchase").ScrollArea = ("a1:i29")
Application.ScreenUpdating = True
Application.ActiveSheet.Protect
Application.ActiveWorkbook.Protect

End Sub

Private Sub btnShow_Click()
Application.ActiveWorkbook.Unprotect
Application.ActiveSheet.Unprotect
Application.ScreenUpdating = False
Worksheets("Purchase").ScrollArea = ("a1:i60")
Worksheets("Purchase").Range("f54:i59").Cut
Worksheets("Purchase").Paste Destination:=Worksheet
_("Purchase").Range("f24:i29")
Worksheets("Purchase").Range("g25").Select
Worksheets("Purchase").btnShow.Visible = False
Worksheets("Purchase").btnHide.Visible = True
Worksheets("Purchase").Image4.Visible = False
Worksheets("Purchase").ScrollArea = ("a1:i29")
Application.ScreenUpdating = True
Application.ActiveSheet.Protect
Application.ActiveWorkbook.Protect

End Su

--
Message posted from http://www.ExcelForum.com