Sandy,

After the inputbox line, use

If rRange.Rows.Count 1 Then
Set rRange = rRange.Rows(1)
MsgBox "I will work on only " & rRange.Address
End If

HTH,
Bernie
MS Excel MVP


"Sandy" wrote in message
...
Hi

How can I check the output from the following to ensure
that only one row has been selected

Dim rRange As Range

Set rRange = Application.InputBox(Prompt:="Please select any entry within " _
& vbCrLf & "the row you would like to amend.", _
Title:="Select a row", Type:=8)

Thanks
Sandy