I didn't really need the message box, but it works.

Thanks.
Paul

"RB Smissaert" wrote in message
...
Actually, I am not sure the funtion has any purpose.
Maybe this is just simpler:

Sub test()

Dim bDialogResult As Boolean

bDialogResult = Application.Dialogs(xlDialogWorkbookUnhide).Show

MsgBox bDialogResult

End Sub

The nice thing is that typing the bracket after Dialogs, will bring up all
the possible dialogs.
Of course you may not be interested in the result of the dialog and then
you could just do:
Application.Dialogs(xlDialogWorkbookUnhide).Show


RBS


"RB Smissaert" wrote in message
...
Try this:


Sub Test()

Dim bDialogResult As Boolean

bDialogResult = bShowDialog(xlDialogWorkbookUnhide)

MsgBox bDialogResult

End Sub


Function bShowDialog(iDialog As Integer) As Boolean

Dim oDialog As Dialog

Set oDialog = Application.Dialogs(iDialog)

bShowDialog = oDialog.Show

End Function


If needed you can use the result of the dialog; that is if a sheet was
indeed unhidden or if the
dialog was cancelled. Note that you can use the function for other
dialogs as well.


RBS


"PCLIVE" wrote in message
...
Is it possible to bring up the Sheet Unhide window using a macro?
Basically, there may be several sheets that are hidden. I want this
macro to bring up the Sheets Unhide window so that I can then select the
sheet that I want to unhide. When I know the sheet name, I know I can
unhide that sheet with the following:

Sheets("SheetName").Visible = True

But if you don't know the sheet name and you just want to bring up a
list, you would normally have to click on Format-Sheet-Unhide.
Can this been done using a macro?

Thanks,
Paul