Object Required error in Excel Code

[Rudi]

I am getting an error on this line in my code if I cancel the resulting inputbox. The error says: Object required?

How do I avoid this

Code: Select all

Set myHistogramTable = _
        Application.InputBox("Select a cell in the histogram table", _
                                    "Histogram Location", Type:=8)
        If Not myHistogramTable Is Nothing Then

[HansV]

If the user cancels, InputBox returns the boolean value False, not a Range object.

You have to use On Error Resume Next:

Code: Select all

On Error Resume Next
Set myHistogramTable = _
  Application.InputBox("Select a cell in the histogram table", _
    "Histogram Location", Type:=8)
On Error Goto 0 ' or an error handler label
If Not myHistogramTable Is Nothing Then

[Rudi]

Tx...it's working now!