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