Hi,

I am working on a way to copy data from my activeworksheet to an indirectly addressed worksheet + colum + row, according to cell data on my sheet. Problem is just that I cant seem to get it past the copy process...

B1 is the sheet name
D1 is the colum number
D2 is the row number (which is always row 167).

Sub copyscore()
Dim IndirectSheet, IndirectColumn, IndirectRow As Object

Set IndirectSheet = ActiveSheet.Range("B1")
Set IndirectColumn = ActiveSheet.Range("D1")
Set IndirectRow = ActiveSheet.Range("D2")

    With ActiveWorkbook
        .ActiveSheet.Range("I4:I101").copy
        .Sheets(IndirectSheet).Select
        .Sheets(IndirectSheet).Cells(IndirectRow, IndirectColumn).Select
        .Selection.paste
    End With

End Sub
Anyone who can help with that?

Thank you,
A2k