Hi

Not really sure what the problem is, but I have run into errors with
protecting in excel 97 on occasion. I have found that if you select a cell
first, you don't get those occasional errors. I know you are not supposed to
have to select and selecting slows things down, but this is just my personal
experience with excel 97.

Sub Run_Update1()
Sheets("Sheet1").Range("a1").select
Application.ScreenUpdating = False
Sheets("Sheet1").Unprotect Password:="George"

if doing additional sheets, select a cell on the next sheet as well like


Sub Run_Update1()

Application.ScreenUpdating = False
Sheets("Sheet1").Range("a1").select
Sheets("Sheet1").Unprotect Password:="George"

Sheets("Sheet2").Range("a1").select
Sheets("Sheet2").Unprotect Password:="George"
Application.ScreenUpdating = True


HTH

Ken