Sub CallBots()

Const SheetID As String = "_Buttonz"
Dim btnDlg As DialogSheet
Dim oSHL As Object: Set oSHL = CreateObject("WScript.Shell")

Application.ScreenUpdating = False
Application.EnableEvents = False


On Error Resume Next
Application.DisplayAlerts = False
ActiveWorkbook.DialogSheets("Dane_Makro").Delete
Application.DisplayAlerts = True
Err.Clear

Set btnDlg = ActiveWorkbook.DialogSheets.Add

With btnDlg
    .Name = SheetID
    .Visible = xlSheetHidden

    With .DialogFrame
        .Height = 70
        .Width = 350
        .Caption = "Generowanie plików do BOTÓW"
    End With

    With .Buttons("Button 2")
        .BringToFront
        .Width = 130
        .Caption = "Nowe pliki wsadowe"
    End With

    With .Buttons("Button 3")
        .BringToFront
        .Width = 130
        .Caption = "Konsolidacja plików wsadowych"
    End With

    .Labels.Add 100, 50, 100, 100
    .Labels(1).Caption = "Jak utowrzyć pliki wsadowe do botów?"


    ''''' THIS IS A  PROBLEMATIC PLACE ''''''''''''''''
    If .Show = True Then
        oSHL.PopUP "Nowe pliki wsadowe zostaną utworzone", 1, "Tworzenie plików", vbInformation
        Call MakeBotsNew
        'MsgBox "Nowe pliki wsadowe zostaną utworzone", 64, "Nowe pliki"
    Else
        oSHL.PopUP "Pliki wsadowe zostaną skonsolidowane", 1, "Tworzenie plików", vbInformation
        Call MakeBotsConso
        'MsgBox "Pliki wsadowe zostaną skonsolidowane", 64, "Konsolidacja plików"
    End If


    'If .CloseMode = vbFormControlMenu Then
      '  Exit Sub
   ' End If
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

    Application.DisplayAlerts = False
    .Delete
    Application.DisplayAlerts = True

End With

Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub