On Error Unhide hide Excel sheet and closed userform

[ganesh_6663]

While running code from user form , if closed userform intermediate then it is giving run time error on "Application.Visible = True" this line and excel stay hide .
I need solution for this , on error Excel must be unhide.
by using "On Error Resume Next" application keep running but Excel not unhide .



When Userform open hide worksheet..

Sub CallUserForm()

UserForm1.Show (vbModeless)
 If Workbooks.Count > 1 Then
       Windows("Upload_Final.xlsm").Visible = False
    Else
        Application.Visible = False
    End If
    UserForm1.Show (vbModeless)

End Sub

When Userform Closed Unhide worksheet....

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
'On Error Resume Next

Application.Visible = True
Windows("Upload_Final.xlsm").Visible = True


End Sub

 

[ganesh_6663]

Team Kindly suggest something ...

 

[ganesh_6663]

How to make "Application.Visible = True" when macro stop by error...any suggestion