Try this:

application.screenupdating = false
Application.isaddin = false

ThisWorkbook.Sheets("Sheet1").Range("A1").Copy
ThisWorkbook.Sheets("Sheet2").Range("B2").PasteSpe cial _
xlPasteValues, skipblanks:=true

application.isaddin = true
application.screenupdating = true

Hope this work

--
Abh
-----------------------------------------------------------------------
Abhi's Profile: http://www.excelforum.com/member.php...fo&userid=1585
View this thread: http://www.excelforum.com/showthread.php?threadid=27328