bob & ivan ,,, i'm sorry....
the problem was adr = [g2:g4].Address .....
that clause adr=shtname & "!" & [g2:g4].Address
the follwing the problem solved....
the sheet name.. i missed...

thank you very much...

*** Sent via Developersdex http://www.developersdex.com ***