This will cure the message, but it will not let you pass the input box
without either selecting a range or clicking cancel. Give it a try.

Public Sub TestError()
Dim cellsSelected As Range
Application.DisplayAlerts = False
On Error Resume Next
Set cellsSelected = _
Application.InputBox(prompt:="Select a cell range", _
Type:=8)
If Err.Number 0 Then
MsgBox "You did not select a range"
Exit Sub
End If
On Error GoTo 0
Application.DisplayAlerts = True
If cellsSelected Is Nothing Then Exit Sub
End Sub




"Hennie Neuhoff" wrote in message
...
Hi All,
The following code returns an error if the user doesn't select a
range, with the error message "The formula you typed contains
an error."
Any assistance would be much appreciated.[Excel 2003]

Public Sub TestError()
Dim cellsSelected As Range
On Error Resume Next
Set cellsSelected = _
Application.InputBox(prompt:="Select a cell range", _
Type:=8)
On Error GoTo 0
If cellsSelected Is Nothing Then Exit Sub
End Sub

--
HJN