Example how-to:

[vba]
Sub a()
Dim SelectedRanges As Range
Set SelectedRanges = Application.InputBox("Select your ranges - use " & _
"commas to separate non-contiguous ranges", , "A1,B2:C9,F3,z11", , , , , 8)
SelectedRanges.Select
MsgBox SelectedRanges.Address
End Sub
[/vba]