Include "MAPBASIC.DEF"

Declare Sub Main
Declare Sub Tab

Sub Tab
  Dim MyTab As String
  If SelectionInfo(SEL_INFO_NROWS) > 0 Then  ' добавим проверочку на то, что выборка не пустая
        MyTab = SelectionInfo(SEL_INFO_TABLENAME)
        Browse * From MyTab
  Else
        Note "Нет выбранных объектов"
  End If
End Sub

Sub Main
  Create ButtonPad "Новые кнопки" As
  PushButton
          HelpMsg "Нажмите на эту кнопку"
          Calling Tab
End Sub