I have been trying to fix it but was not able to, although it\'s a very small code: Please help, it\'s showing an \"else without if\" error:
Private Sub Workbook
You can do this more concisely and avoid using GOTO to control the flow of the program (which is generally a good idea) with a simple loop;
GOTO
Dim pass As String Do pass = InputBox("Enter Password") If pass = "hummer" Then Exit Do Loop