Error Handling Help - Skip .Copy if no visible cells

[NewYears1978]

I am doing some copy pasting in VBA based on autofilter, sometimes the data is empty (all rows / data hidden) which will throw an error of course.

I put in error handling but the problem is if the user had anything on their System clipboard this ends up getting pasted in the next step.

My solution idea was to just have one blank cell copied whenever there was an error however my Error handling seems to be running both steps (ie, running the errorhandling code even when there was not an error)

Here's one way I tried to solve it:

Please Login or Register  to view this content.

When there is not an error it's doing the Selection.SepcialCells(xlCellTypeVisible).Copy AND also the Range("A1000").Copy, not sure why.

There's probably an easier way to say if there are no visible cells, just skip the .Copy part of the code?

Thanks in advance!

[Bernie Deitrick]

For the dual copy - you need an "Exit Sub" before the endProc: label

Anyway, try the code like this:

Please Login or Register  to view this content.

[NewYears1978]

You are the best, that worked, thank you!

Also: I am dumb for not putting Exit Sub =D