How about

For i = 1 To 3
sheets1.cells(i,1) = inputbox("Give value for cell", cells(i,1))
Next i


--
---
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)



"matthias" wrote in message
oups.com...
Hi guys,

i've programmed a macro so that a pop up asks for the values that have
to be put into a cell

this already works : sheets1.cells(1,1) = inputbox("Give value for
cell", cells(1,1))

Now i want to use this to ask for different values, so more than one
cell : for instance the cells (1,1),(2,1),(3,1)

is this possible with one pop up screen???