Hi,
thanx for that, but i just don't seem to be able to fit in my own sub:

Sub Copy()
If ActiveCell = "0:1" And ActiveCell.Offset(0, -3) = "2,1" Then
Sheets("sheet1").Range("E21:G21").Copy
Destination:=ActiveCell.Offset(0, 1)
End If
End Sub

Do you know how i can fit in there?


---
Message posted from http://www.ExcelForum.com/