Canceling on Input Box

Hi All,

i don't know anything about VBA, but I was able to locate a VBA script that works to fit my needs. The only thing that does not work is the "Cancel' button that populates on the Input boxes. Can someone help me fill in the gap for this?

----------

Sub AZ_Monthly()

Dim cvsApp As Object
Dim cvsConn As Object
Dim cvsSrv As Object
Dim Rep As Object
Dim Info As Object, Log As Object, b As Object
Dim CMSRunning As String
Dim objWMIcimv2 As Object
Dim objProcess As Object
Dim objList As Object

CMSRunning = "acsSRV.exe"

Set objWMIcimv2 = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\.\root\cimv2") 'Connect to CIMV2 Namespace

Set objList = objWMIcimv2.ExecQuery _
("select * from win32_process where name='" & CMSRunning & "'") 'determine if CMS is running

If objList.Count = 0 Then 'If 0 then process isn't running

End If

Set cvsApp = CreateObject("ACSUP.cvsApplication")
Set cvsConn = CreateObject("ACSCN.cvsConnection")
Set cvsSrv = CreateObject("ACSUPSRV.cvsServer")
Set Rep = CreateObject("ACSREP.cvsReport")

Application.ScreenUpdating = 0

Set cvsSrv = cvsApp.Servers(1)
Application.ScreenUpdating = 1

AgGrp = InputBox("Enter Agent Group Name", "Agent Group", "Medicare BSU AZ") 'change as needed for variables to enter into report
RpDate = InputBox("Enter Date", "Date", "XX/XX/XXXX-XX/XX/XXXX") 'change as needed for variables to enter into report

'Start code from CMS Export script
On Error Resume Next

cvsSrv.Reports.ACD = 2
Set Info = cvsSrv.Reports.Reports("Historical\Designer\Medicare BSU Metrics")

b = cvsSrv.Reports.CreateReport(Info, Rep)
If b Then

Rep.Window.Top = 1830
Rep.Window.Left = 975
Rep.Window.Width = 17610
Rep.Window.Height = 11910

Rep.SetProperty "Agent Group", AgGrp 'change as needed for report variables

Rep.SetProperty "Dates", RpDate 'change as needed for report variables
Rep.TimeZone = "default"
b = Rep.ExportData("", 9, 0, True, True, True)
Rep.Quit

If Not cvsSrv.Interactive Then cvsSrv.ActiveTasks.Remove Rep.TaskID
Set Rep = Nothing
End If

Set Info = Nothing

' End code from CMS Export Script

cvsConn.logout
cvsConn.Disconnect
cvsSrv.Connected = False
Set Log = Nothing
Set Rep = Nothing
Set cvsSrv = Nothing
Set cvsConn = Nothing
Set cvsApp = Nothing
Set Info = Nothing

    Range("Z53").Select
    ActiveSheet.Paste
    
    End Sub

Hi, welcome to the forum.
If I understand you correctly you need to test if the user entered something of pressed Cancel?

You will need to add two tests
Firt one is check if AgGrp has been entered

First Dimension ALL your variables

Dim AgGrp As Variant
Dim RpDate As Variant
AgGrp = InputBox("Enter Agent Group Name", "Agent Group", "Medicare BSU AZ") 'change as needed for variables to enter into report

If VarType(AgGrp) = vbBoolean then exit sub

RpDate = InputBox("Enter Date", "Date", "XX/XX/XXXX-XX/XX/XXXX") 'change as needed for variables to enter into report

If VarType(RpDate) = vbBoolean then exit sub

What this does is check if anything has been entered, if the user presses X (top right) then it's Canceled and the value is FALSE and this a Boolean (True or False)

If tha type of answer is a Boolean the it's false so it exist the sub

Hope this helps