I'd do it like this:

Sub aa()
On Error Resume Next
Err = 0
CommandBars("Workbook Tabs").Controls("More sheets...").Execute
If Err < 0 Then CommandBars("Workbook Tabs").ShowPopup
End Sub


--
Jim Rech
Excel MVP