To browse thru multiple cells input:

'-------------------------------------------------------
dim myRange as Range
dim rCell as Range

Set myRange = Application.InputBox(prompt := "Sample", type := 8)
For each rCell in myRange

Next rCell
'---------------------------------------------------------

HTH
--
AP


"Ardus Petus" <ardus.petus@laposte.net> a écrit dans le message de news:
%23nQeLjqlGHA.2392@TK2MSFTNGP04.phx.gbl...
> dim myRange as Range
> Set myRange = Application.InputBox(prompt := "Sample", type := 8)
>
> HTH
> --
> AP
>
>
> "mcphc" <mcphc@discussions.microsoft.com> a écrit dans le message de 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
>
>