Forum Discussion

Shashikant Koti's avatar
Shashikant Koti
Copper Contributor
Jul 31, 2018

Excel 2016 Help window pops up automatically when I call msgbox in VBA

Excel 2016 Help window pops up automatically when I call Msgbox. I have called the Msgbox in the Worksheet_Activate function. Immediately after the Msbox is displayed, along with Msgbox, Excel 2016 H...
excel
Shashikant Koti's avatar
Shashikant Koti
Copper Contributor
Jul 31, 2018

Please find function attached. When worksheet is activated, I call the Msgbox. If I remove Msgbox , I don't get the Excel 2016 Help window,

**************************************

Dim MsgSW2 As Boolean
Private Sub Worksheet_Activate()
  If MsgSW2 Then Exit Sub
    If Range("CatchSW").Value = False Then  
        MsgBox "Please remember to update the data in the Section"
        MsgSW2 = True
        CommandButton1.Visible = True
    Else
        CommandButton1.Visible = False
    End If

End Sub

******************************************

Haytham Amairah's avatar
Haytham Amairah
Silver Contributor
Jul 31, 2018

This is a strange issue!

I tried to reproduce the code on my own but the Excel 2016 help window didn't pop up!

Typically, it pops up when you press F1.

  • Shashikant Koti's avatar
    Shashikant Koti
    Copper Contributor
    Jul 31, 2018
    Thanks Haytham for your comments. I also copied the same code in different sheet and was not able to replicate. If I remove the msgbox then this issue goes away. Happens only on my current excel sheet.
    • Shashikant Koti's avatar
      Shashikant Koti
      Copper Contributor
      Jul 31, 2018

      Is there is setting in excel which will prevent "Excel 2016 Help" window popping up.

      • Haytham Amairah's avatar
        Haytham Amairah
        Silver Contributor
        Aug 01, 2018

        Sorry, I have no idea about that!

         

        But, try to update the code as follows:

        Dim MsgSW2 As Boolean
        Private Sub Worksheet_Activate()
          If MsgSW2 Then Exit Sub
          Application.DisplayAlerts = False
          Application.EnableEvents = False
            If Range("CatchSW").Value = False Then
                MsgBox "Please remember to update the data in the Section"
                MsgSW2 = True
                CommandButton1.Visible = True
            Else
                CommandButton1.Visible = False
            End If
            Application.DisplayAlerts = True
            Application.EnableEvents = True
        End Sub

         

        This might fix the issue!

         

        Regards

Resources