Hi, I am trying to write a macro that will check if the Header and Footers dialog box is closed. I have tried the below macro but its not working the way i want it to.
I need to run a macro that will close the Slide Master View after the button "Apply to All" in the Headers and Footers Dialogbox has been clicked.
Code:
Sub testDialogOpen()
Dim wHandle As Long
Dim wName As String
wName = "Header and Footer"
wHandle = FindWindow(0&, wName)
If wHandle = 0 Then
MsgBox "Dialog window is not open"
Else
MsgBox "Dialog window is open"
End If
End Sub