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

--
天行健，君*以自強不息
地勢坤，君*以厚德載物

http://www.vba.com.tw/plog/


"Arjan" wrote:

> 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!