Debug code

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

I don't want it to be visible.
It should remain hidden.

Is it possible to only include the name of the second SUB in the first sub?

The only problem is it is asking me for the password twice.

I am afraid to delete the sentence asking for the password and if someone enters the wrong password it will still execute the second sub.

Can you help please?

Originally Posted by gmr4evr1

It will go back to hidden after it is done.
Yes, you can call one sub from another. In the first sub code place Call Your Other Sub Name in the line where you want it to run.

In the second sub, there is a line that is exactly the same as the one in the first sub and it starts with "if PW..."

Should I erase it ?

Originally Posted by gmr4evr1

It shouldn't ask for the password twice. If someone enters the wrong password, it will exit the sub and not call the second sub. Try this

Option Explicit

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

Call secondSub '<----- Your second sub name

MsgBox "Your Budget Refresh is Complete!"

End If

End Sub

Thank you for your help

Originally Posted by gmr4evr1

Yes, you definitely should. You'll have to delete the End If and Else as well.