I'd missed out the "" - how embarrassing.

Thanks for the help with the previous query guys
-----Original Message-----
Hi
Cany anyone tell me what's wrong with the code below.
I get an application defined or object defined error



With ActiveWorkbook.Sheets(1)
.Range(d9) = ThisWorkbook.Sheets(1).Range(b3)
.Range("h6") = ThisWorkbook.Sheets(1).Range("b16")
.Range("h7") = ThisWorkbook.Sheets(1).Range("d16")
.Range("h8") = ThisWorkbook.Sheets(1).Range("g16")
End With
.