Trouble finding problem with code.

[RLPeloquin]

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

 

[vw412]

Not able to duplicate the error but you do have some coding problems.

In the Workbook_Open proc you show the Userform1 as Modal but in the Workbook_SheetActivate you show it as "modeless". Is that your intention? The Userform1.Show in Workbook_Open forces a user to dismiss ("X" out) the Userform before they can interact with the workbook.

In the Workbook_SheetActivate proc,

Userform1.Show modeless

should be

Userform1.Show vbModeless

Why not combine the Select/Case and If/ElseIf blocks into one Select/Case?

 

[RLPeloquin]

Not able to duplicate the error but you do have some coding problems.

In the Workbook_Open proc you show the Userform1 as Modal but in the Workbook_SheetActivate you show it as "modeless". Is that your intention? The Userform1.Show in Workbook_Open forces a user to dismiss ("X" out) the Userform before they can interact with the workbook.

In the Workbook_SheetActivate proc,

Userform1.Show modeless

should be

Userform1.Show vbModeless

Why not combine the Select/Case and If/ElseIf blocks into one Select/Case?

Thanks, this seems to work! you're the best!!