Code Examples

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
  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 ********************

© 1998 - 2011 Terry Wickenden TKW Design Site developed maintained and hosted by TKW Design. This site is best viewed at 1024 x 768. Optimised for Firefox.