Show Unhide Dialog

This example displays the Unhide dialog box if there are any items hidden otherwise it displays an error message.

'***************** Code Start *******************
'This code was originally written by Terry Wickenden.
'It is not to be altered or distributed,
'except as part of an application.
'You are free to use it in any application,
'provided the copyright notice is left unchanged.

Sub TestUnhide()
   On Error GoTo ErrUnhide
   RunCommand acCmdWindowUnhide
   Exit Sub
ErrUnhide:
   Select Case Err
     Case 2046
       MsgBox "There is nothing to Unhide at this time"
     Case Else
       MsgBox Err.Number & ":- " & vbCrLf & Err.Description
    End Select
End Sub


'****************** Code End ********************

Return to Example List