View Single Post
  #4   Report Post  
Posted to microsoft.public.excel.programming
Bernie Deitrick Bernie Deitrick is offline
external usenet poster
 
Posts: 5,441
Default 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