Find, select & delete/move on if not found

Hi all,

This is my first post so if I have missed any rules/regulations then my apologies.

I am trying to put together a macro for formatting Audit Trails downloaded from Qube. I've attached a sample to try and illustrate my point.

Ideally I would like the macro to:

• Check if the worksheet is an Audit Trail
• Resize Date Column
• Hide Columns B & F, Resize Column E
• Change number format of Column H to include (,)
• Remove Unnecessary Costheads (5020, 5040, 5000, 5010, 6000 & 6020)
• Go to Service Charge Costhead

I have managed to get a (somewhat) working macro for all but the second to last bullet point. This is what I have so far:

Please Login or Register  to view this content.

I would like the macro to search for the costhead (i.e. 5020 Tenant Debtors), select that section, delete and move on to the next costhead; go through all unneeded ones and come back to '2000 Service Charges Levied', as this sometimes needs to be deleted too.

At one point I did get this to work, but have since lost it trying to refine it!

As some audit trails do not have the unnecessary costheads, I would like the macro to move on if it cannot find the exact term. This is where I got stuck.

I'm sure there must be an extremely simple remedy to this problem, but I have absolutely no knowledge of VBA prior to this - so I'm amazed I've got this far!

Any help would be greatly appreciated.

Thank you all very much

Try this:

Please Login or Register  to view this content.

That works perfectly, thank you very much.

What would I need to change this to,

Dim ws As Worksheet: Set ws = Sheets("Sheet2") 'change this if needed

to make it work for any selected worksheet? Sorry for the simple questions, I'm still learning.

Please Login or Register  to view this content.

If this solves your question please mark this thread and solved and if you were happy with my service feel free to add some reputation (the little star on the left side of the post)