Hi Paul,

Thanks for your advice

After I worked around to debug the codes, there was an error that
there is no cells to copy if no cells were found but it still not able
to skip the line of codes and remains at
"result.SpecialCells(xlCellTypeVisible).Copy"

Then I tried to separate the codes which contains "On Error GoTo
NextProcess " and "On Error Resume Next " into different sub
procedures, it works perfectly.

Does it mean that the codes can not have both "On Error GoTo
NextProcess " and "On Error Resume Next " within the same sub
procedure ?

Regards
Len