I've run into a problem again where a program works fine
on xp and 2000, but not on 97. My program has 2 bugs,
here is the code that give the problems

1. This code is run after a dropdown list changes
With Worksheets("Report").Range("ai5").Characters
(Start:=7, Length:=1).Font
.Name = "Wingdings"
.FontStyle = "Regular"
.Size = 9
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With

Error: Unable to set the Name Property of Font Class

2. This is another part of code run after the dropdown
list is changed.

With Worksheets("Report")
.Unprotect Pword
(Some Code)
Worksheets("Report").Protect password:=Pword
End With

Error: Unprotect method of worksheet class failed

Got it figured out on my own, Thanks.


-----Original Message-----
I've run into a problem again where a program works fine
on xp and 2000, but not on 97. My program has 2 bugs,
here is the code that give the problems

1. This code is run after a dropdown list changes
With Worksheets("Report").Range("ai5").Characters
(Start:=7, Length:=1).Font
.Name = "Wingdings"
.FontStyle = "Regular"
.Size = 9
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With

Error: Unable to set the Name Property of Font Class

2. This is another part of code run after the dropdown
list is changed.

With Worksheets("Report")
.Unprotect Pword
(Some Code)
Worksheets("Report").Protect password:=Pword
End With

Error: Unprotect method of worksheet class failed
.

sounds like you are running this from a commandbutton. If so, manually
change the takefocusonclick property of the commandbutton to false.

--
Regards,
Tom Ogilvy

"Wes" wrote in message
...
I've run into a problem again where a program works fine
on xp and 2000, but not on 97. My program has 2 bugs,
here is the code that give the problems

1. This code is run after a dropdown list changes
With Worksheets("Report").Range("ai5").Characters
(Start:=7, Length:=1).Font
.Name = "Wingdings"
.FontStyle = "Regular"
.Size = 9
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With

Error: Unable to set the Name Property of Font Class

2. This is another part of code run after the dropdown
list is changed.

With Worksheets("Report")
.Unprotect Pword
(Some Code)
Worksheets("Report").Protect password:=Pword
End With

Error: Unprotect method of worksheet class failed