InputBox Error.

Good morning jonnyuk3

There isn't a dedicated method to catch cancel from the Application.Inputbox object. Just use Excel's generic error trapping method immediately before calling the input box, and reset it straight after, thus :

On Error Resume Next
Set rngToChart = Application.InputBox(Prompt:="Select the range you wish to chart!", Title:="Select a range", Type:=8)
On Error GoTo 0

HTH

DominicB

Hi jonnyuk3

This code runs fine on its own. The error must be that the empty variable is causing a problem further on. Use something like this ...

On Error GoTo Last
    Set rngToChart = Application.InputBox(Prompt:="Select the range you wish to chart!", Title:="Select a range", Type:=8)
On Error GoTo 0

'  More code goes here

Last:
Exit Sub

I can't be any more precise than that with only one line of code to look at.

HTH

DominicB

Hi jonnyuk3

I'm not sure why you're having this problem - I've worked one of my previous answers in your code and it seems to work OK for me. I can't fully test it as you seem to be making use of a custom function (IsChartSheetPresent) but see if it works for you :

Sub CreateChart()
    Dim strSheetName As String
    Dim rngToChart As Range
    
    ' get the range to chart
    On Error GoTo Last:
    Set rngToChart = Application.InputBox(Prompt:="Select the range you wish to chart.", _
        Title:="Select a range.", Type:=8)
    On Error GoTo 0
    rngToChart.Select
            
    ' Assign the address of the selected range of cells to a variable.
    myRange = Selection.Address
            
    ' Assign the name of the active sheet to a variable. This line is
    ' used in order to allow a chart to be created on a separate chart
    ' sheet.
    mySheetName = ActiveSheet.Name
        
    ' Create a name for the new sheet
    myGraphSheetName = mySheetName & " Graph"
    strSheetName = myGraphSheetName
        
    If IsWorkSheetPresent(strSheetName) Then
        ' delete the worksheet
        On Error Resume Next
        Application.DisplayAlerts = False
        Sheets(myGraphSheetName).Delete
        Application.DisplayAlerts = True
        On Error GoTo 0
    End If
    
    If IsChartSheetPresent(strSheetName) Then
        ' delete the chart sheet
        On Error Resume Next
        Application.DisplayAlerts = False
        Charts(myGraphSheetName).Delete
        Application.DisplayAlerts = True
        On Error GoTo 0
    End If
    
    ' Add a chart to a seperate sheet
    Charts.Add
    Application.CutCopyMode = False
        
    ' Create the chart
    ActiveChart.ChartWizard _
        Source:=Sheets(mySheetName).Range(myRange), _
        Gallery:=xlLine, Format:=1, PlotBy:=xlColumns, _
        CategoryLabels:=1, SeriesLabels:=1, HasLegend:=1, _
        Title:=mySheetName, CategoryTitle:="", _
        ValueTitle:="", ExtraTitle:=""
      
    ' Rename the sheet
    ActiveSheet.Name = myGraphSheetName

Last:
MsgBox "Aborted"
Exit Sub
End Sub

If you're still getting an error you may have to post a cut down version of your file.

HTH

DominicB