K
K1KKKA
Sub Sunselect()
Dim PassStr As String
PassStr = InputBox("Enter Password Please", "My Password
Prompt")
If PassStr = "Manager" Then
Sheets("Sun").Select
Range("A11").Select
Else
MsgBox "Wrong Password Entered"
End If
End Sub
Have created the userform for the above task, but not having much luck
with the code for this
Any help would be appreciated
Dim PassStr As String
PassStr = InputBox("Enter Password Please", "My Password
Prompt")
If PassStr = "Manager" Then
Sheets("Sun").Select
Range("A11").Select
Else
MsgBox "Wrong Password Entered"
End If
End Sub
Have created the userform for the above task, but not having much luck
with the code for this
Any help would be appreciated