Dim password As Variant
password = Application.InputBox("Enter Password", "Password Protected")
Select Case password
Case Is = False
'do nothing
Case Is = "PASSWORD" 'Edit this line with the password you wish to protect your macro with.
'This is where your code will go.
Case Else
MsgBox "Incorrect Password"
End Select
MattH1 - This is exactly what I was looking for. Thank you for your sharing your knowledge so quickly!