problems with loop

[Guest]

I've a problem and no clue how to solve this.
I've a table with 3 columns (A:C). Column A is contains a name (sheetname),
column B a cell (C20) and column C a value.

I want to value of C1, in the cell of B1 on sheet A1 and so on, till the end
of the table. I was struggling with the loop (end of table / end of range?).

Example of table:
ColumnA-ColumnB-ColumnC
sheet1-C20-Jan
sheet2-B20-Karin
sheet1-C21-Doug
etc.

Thanks for your help!

 

[Guest]

Arjan:

try,

i = 1
Do While Sheet1.Cells(i, 1) <> ""
shtname = Sheet1.Cells(i, 1)
Worksheets(shtname).Range(Sheet1.Cells(i, 2)) = _
Sheet1.Cells(i, 3)
i = i + 1
Loop