Link to home
Start Free TrialLog in
Avatar of RWayneH
RWayneHFlag for United States of America

asked on

Need to insert an if statement

I have found that then running a procedure, that if a copy range is blank, it is failing.
How do I tell the following code to goto 201 'End of procedure if the .copy is empty?

Set UsdRng = Sheets("Sheet1").UsedRange
Set myRng = UsdRng.Offset(1).Resize(UsdRng.Rows.Count - 1, UsdRng.Columns.Count)

Fails on
myRng.Columns(1).SpecialCells(xlVisible).Copy

Only thing I can think of is that there is nothing visible to copy.  How do I do a if then on that line so that if there is nothing visible it will continue and if it is not it will do its stuff?
ASKER CERTIFIED SOLUTION
Avatar of Ganapathi
Ganapathi
Flag of India image

Link to home
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
Start Free Trial
Avatar of RWayneH

ASKER

Thanks for the help.