Hi,
I have following problem: I'm using Autofilter to select data from a sheet
and transfer it a different sheet. Unfortunally, when no data is found by
autofilter I get following error message on 3rd line of the following code:
"Run time error 1004 - no cells were found".
Does anybody have an idea how to avoid this error?

Range(Cells(2, 1), Cells(No_Rows_Source, 1)).Select
Set Rng = Selection
Set RngVis = Rng.SpecialCells(xlVisible)
For Each Cll In RangVis
.....
Next

Kind regards, AXEL