I have the following code but when the cancel button on my input box is
pressed the "invalid password" message is still displayed. Can someone help
so when the cancel button is pressed then that is exactly what happens, the
input box is cancelled.

Dim MyStr1 As String, MyStr2 As String
MyStr2 = ("engineering")
MyStr1 = InputBox("Please Enter The Required Password")
If MyStr1 = MyStr2 Then
Sheets("Sheet2").Select
Range("A9").Select
Else
MsgBox "Incorrect Password. Access Denied", vbCritical
Range("E22").Select
End If