Sub SelectWhatToWorkWith()
    Dim WorkWithThis As Range
' HAVE USER SELECT ROW TO WORK WITH
Set WorkWithThis = Application.InputBox("Select a cell on the row to work with", "Row To Work With", Type:=8)
'if nothing is selected then exit sub
If WorkWithThis Is Nothing Then Exit Sub
'check for only one selected cell
If WorkWithThis.Count = 1 Then
    MsgBox "Going to work with row " & WorkWithThis.Row
Else
    MsgBox "Sorry, you've selected more than one cell."
    Exit Sub
End If
End Sub