Clayton,
Or for multiple selections:
Dim rng As Range
Dim Counter As Long
Dim Ranges() As String 'Or use an array of ranges

On Error Resume Next

Do
Set rng = Application.InputBox("Select a range, then click OK.", "Range
selection", , , , , , 8)
If Err.Number > 0 Then Exit Do
Counter = Counter + 1
ReDim Preserve Ranges(1 To Counter)
Ranges(Counter) = rng.Address
Loop

NickHK

"mcphc" <mcphc@discussions.microsoft.com> wrote in message
news:6FDE54A9-1EF2-4E59-A3E6-47C9847243A4@microsoft.com...
> I would like to write a macro that asks the user to select multiple cells
on
> a sheet (i.e. D10,AK13,AG16,V19) using an InputBox or similar. Then I
would
> like the macro to cycle through each of the cells using the cell contents
as
> a string in some other statements.
>
> Is this possible?
>
> Thanks
>
> Clayton