Hello everyone,

I am trying to combine two subs but I get an error when the second one starts.

The error starts in the line where I have the bold with red

Can someone help?

Sub Refresh()

Dim X As Variant
Dim PW As String

PW = InputBox("Please enter password below", "Password", "")

If PW <> "SALARY" Then
        MsgBox "Incorrect Password"
        Exit Sub
Else

application.ScreenUpdating = False
Sheets("Finess-Actuals").Visible = True

Sheets("Finess-Actuals").Select
Range("A2:AL290").Select

Sheets("Refresh & Upload").Select

Sheets("Finess-Actuals").Visible = xlSheetVeryHidden
application.ScreenUpdating = True

Sheets("Finess-Budget").Select
Range("A2:BO290").Select

Sheets("Finess-Budget").Visible = xlSheetVeryHidden
application.ScreenUpdating = True

MsgBox "Your Budget Refresh is Complete!"

End If

End Sub