RLPeloquin
Board Regular
- Joined
- Jul 4, 2020
- Messages
- 73
- Office Version
- 2019
- Platform
- Windows
It seems when I close my Workbook from any other page other than the Home page I get this error. Any suggestions, Thanks in advance!
Private Sub Workbook_Open()
Application.WindowState = xlMaximized
Worksheets("Home").Activate
UserForm1.Show
End Sub
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
On Error Resume Next
Select Case ActiveSheet.Name
Case "Home"
UserForm1.Show modeless
Case Else
UserForm1.Hide
End Select
If Sh.Name = "Site 1" Then
Call If_And_Elseif
'Call Auto_Fit
ElseIf Sh.Name = "Site 2" Then
Call If_And_Elseif
'Call Auto_Fit
ElseIf Sh.Name = "Site 3" Then
Call If_And_Elseif
'Call Auto_Fit
End If
End Sub
Private Sub Workbook_Open()
Application.WindowState = xlMaximized
Worksheets("Home").Activate
UserForm1.Show
End Sub
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
On Error Resume Next
Select Case ActiveSheet.Name
Case "Home"
UserForm1.Show modeless
Case Else
UserForm1.Hide
End Select
If Sh.Name = "Site 1" Then
Call If_And_Elseif
'Call Auto_Fit
ElseIf Sh.Name = "Site 2" Then
Call If_And_Elseif
'Call Auto_Fit
ElseIf Sh.Name = "Site 3" Then
Call If_And_Elseif
'Call Auto_Fit
End If
End Sub