Test for multiple rows
Jim,
Be careful with that EntireRow since it will extend the range beyond the initial rRange (possibly).
HTH,
Bernie
MS Excel MVP
"Jim Cone" wrote in message
...
This uses the first row of whatever was selected...
'--
Sub Uncertain()
Dim rRange As Range
On Error Resume Next
Set rRange = Application.InputBox _
(Prompt:="Please select any entry within" & _
vbCrLf & "the row you would like to amend.", _
Title:="Select a row", Type:=8)
On Error GoTo 0
If rRange Is Nothing Then Exit Sub
Set rRange = rRange.EntireRow.Rows(1)
MsgBox "You selected row " & rRange.Row & " ", vbInformation, "Sandy"
End Sub
--
Jim Cone
Portland, Oregon USA
"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
|