Hi Lisa

at a glance

.Range(d9) = ThisWorkbook.Sheets(1).Range(b3)
should be
.Range("d9") = ThisWorkbook.Sheets(1).Range("b3")

Cheers
JulieD

"LiSa" wrote in 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