To select a range

Sub RangeSelectionPrompt()
'To prompt a user to select a range of cells and
'for example, to highlight the cells

   Dim Rng As Range, Ar As Range

   'Prompt a user to select a range
   On Error Resume Next 'If nothing is selected
     Set Rng = Application.InputBox("Select a range or" & _
               " a few ranges of cells to be highlighted", Type:=8)
   On Error GoTo 0

   If Rng Is Nothing Then
     MsgBox "Cancel was clicked."
   Else
     'Highlight the cells or you may do something else
     For Each Ar In Rng.Areas
         Ar.Interior.ColorIndex = 35
     Next Ar
     MsgBox "The highlighted cells are " & Rng.Address
   End If 
End Sub