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

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?
Avatar of Ganapathi
Flag of India image

Link to home
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


Thanks for the help.