if cUser = "XJOHN" _
or cUser = "YPAUL" then

or you could use a select case structu

select case cUser
case is = "XJOHN", "XPAUL"
'DO THE WORK

Sometimes, that "select case" structure is lots easier to modify when you want
to add more options.

tinman wrote:

Hello,

Could someone help me understand why it doesn't like "If cUser =
"XJOHN" Or "YPAUL" Then" in the macro below? Thanks.

Sub UnprotectAllSheets()
Dim cUser As String
cUser = UCase(Environ("username")) 'change to uppercase because
this seems to be case sensitive.
If cUser = "XJOHN" Or "YPAUL" Then

Dim wSheet As Worksheet
For Each wSheet In ActiveWorkbook.Worksheets
wSheet.Unprotect Password:="opensesame"
Next

Else
UserForm1.Show
End If
End Sub

--

Dave Peterson