Hi
try
with worksheets("page1")
if application.counta(.range("C305:E318"))0 then
.range("C305:E318").copy
'....
end if
end with

--
Regards
Frank Kabel
Frankfurt, Germany


Hi All,

I have a sheet that copies cells from excel to word. I need to be
able
to determine if the clipboard copy is empty - if its empty it fails.

Sheets("Page1").Select
Range("C305:E318").Copy

Basically I need to be able to say if the range to be copied is in
fact empty - ignore. If range to be copied has value then paste it.

I have code to copy and paste but I need to run an IF that determines
whether the copy and paste is run or not.

Any assistance appreciated.

Thnaks

Steve


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