Subscript Out of Range When clearing contents

I have noticed when I occasionally run the below code from the VBA panel I get Subscript Out of Range.  This only seems to happen if I were last in the worksheet called "REPORT-JAN".  If I then manually go to another worksheet and re-run the SUB then I do not have this issue..Any ideas why I get this message...Why should it matter what worksheet I am in when clearing a worksheet ?

Also if I want to clear everything in A-R, then what is the syntax for this...I fear that one day my data may go beyond row 5,000..Should I just find the LastRow or is there an easier way...

With Sheets ("REPORT-JAN")
.RANGE("A1:R5000").Clear Contents
End With
upobDaPlayaAsked:
Who is Participating?

[Product update] Infrastructure Analysis Tool is now available with Business Accounts.Learn More

x
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

zorvek (Kevin Jones)ConsultantCommented:
Check the name of the worksheet (tab name). If it isn't spelled exactly the same you will get that error.

Kevin
0
zorvek (Kevin Jones)ConsultantCommented:
I'm sure this is not your problem and only a typing mistake, but this:

Clear Contents

should be:

ClearContents

Kevin
0
upobDaPlayaAuthor Commented:
I checked and the TabName is spelled correctly and I have ClearContents
0
Build an E-Commerce Site with Angular 5

Learn how to build an E-Commerce site with Angular 5, a JavaScript framework used by developers to build web, desktop, and mobile applications.

zorvek (Kevin Jones)ConsultantCommented:
Are you working with multiple workbooks? If so, try this:

With ThisWorkbook.Sheets ("REPORT-JAN")
.RANGE("A1:R5000").Clear Contents
End With

Kevin
0

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
upobDaPlayaAuthor Commented:
No..I am just working with 1 workbook relative to the code.  However, I did have multiple workbooks open at the time..

Whats the rule when you need to include Workbook...
0
zorvek (Kevin Jones)ConsultantCommented:
You should always include it. Otherwise you are depending on Excel to determine where the Sheets collection is. I always use fully qualified references to ensure I get exactly what I am looking for.

So my code change did not help?

Kevin
0
upobDaPlayaAuthor Commented:
It works now, however I was able to get it to work prior to my post, but occasionally it I would get the subscript msg.  Now that I have qualified the WS lets see if I no longer get any errors..I will run it multiple times tomorrow pm and let u know..thx
0
byundtMechanical EngineerCommented:
Further to Kevin's suggestion if you might go beyond 5000 rows of data, I often use the Intersect method to restrict the range to only those rows being used:
With ThisWorkbook.Worksheets("REPORT-JAN")
    Intersect(.UsedRange, .Range("A:R")).ClearContents
End With

Open in new window

Brad
0
Rob HensonFinance AnalystCommented:
When clearing the data, is column R the full extent of the data or is there is anything beyond R which you are keeping?

If R is the full extent you can use the "Cells.Select" statement to select everything. I assume therefore that you could use "Cells.ClearContents" to clear everything.

Thanks
Rob H
0
upobDaPlayaAuthor Commented:
Some very good feedback indeed. I do have data beyond col R, however I only want to delete thru col r, thus it sounds like the Intersect method would be the best ?
0
byundtMechanical EngineerCommented:
All of the methods suggested will clear the contents of A1:R5000. The Intersect method will go beyond row 5000 should data exist in those rows.

I assume by "delete" that you really mean to clear the contents. Actually deleting those cells (and moving up replacement cells from the bottom of the worksheet) would mess up any formulas that referenced the deleted cells.
0
zorvek (Kevin Jones)ConsultantCommented:
That part of the code is fine. Only clear what you want to clear. If you want to clear from row 1 to the bottom of the worksheet then use:

    .RANGE("A:R").ClearContents

The ClearContents method is not frequently used so any decrease in speed clearing all rows versus the first 5,000 rows (which will be minimal anyway) will not be noticed.

Kevin
0
upobDaPlayaAuthor Commented:
I appreciated the multiple solutions and the forward thing questions.  Much appreciated.
0
upobDaPlayaAuthor Commented:
Hi byundt..I am using the intersect method and it works great with the exception of what if I do not want the header row cleared..thus the range starts at A2..how then do I handle the part of your code that has ...... .Range("A:R")).ClearContents
0
byundtMechanical EngineerCommented:
How about:
    Intersect(.UsedRange, .Range("A2:R" & .Rows.Count)).ClearContents

Open in new window

0
upobDaPlayaAuthor Commented:
Brilliant! Thanks
0
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
Microsoft Excel

From novice to tech pro — start learning today.