Does anyone know why this doesn't work?

Sub ShowListStylesDialog()
   With Dialogs(wdDialogFormatBulletsAndNumbering)
   .DefaultTab = wdDialogFormatBulletsAndNumberingTabListStyles
   .Show
   End With
End Sub

The Default Tab for the following work:

   .DefaultTab = wdDialogFormatBulletsAndNumberingTabBulleted
   .DefaultTab = wdDialogFormatBulletsAndNumberingTabNumbered
   .DefaultTab = wdDialogFormatBulletsAndNumberingTabOutlineNumbered