If application.Counta(cells)0 then
activesheet.copy befo=workbooks("Other.xls").Sheets(1)
End If

Bob Umlas
Excel MVP

"Emece" wrote in message
...
I need a Macro to do the following:

Read a worksheet and if the cells contain any value, copy
them into another workbook.

Can't figure it out!

Thanks a million!

Emece.-