Removing select statements in VBA

SerenityNetworks · #1 04-12-2018, 08:56 AM

I have a very long set of recorded macros that use select statements a lot. Consequently, the performance is very slow. But in trying to get rid of the select statements, there is something I'm doing wrong. I'm not getting the syntax correct. The examples below show three common occurrences. If someone can correct these examples then perhaps I can take it from there.

Thanks in advance,
Andrew

Code:

Range("A6").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1).Select
ActiveCell.FormulaR1C1 = "x"

Code:

ActiveSheet.Shapes.Range(Array("Rounded Rectangle 50")).Select
Selection.ShapeRange.ZOrder msoBringToFront
 Range("A5").Select

Note that when I'm selecting the range, it is dynamic. I am not able to hard code a range as A10:A1000.

Code:

Range("A6").Select
Range(Selection, Selection.End(xlDown)).Select
On Error GoTo NoX
Selection.Find(What:="x", After:=ActiveCell, LookIn:=xlValues, LookAt:= _
xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=False).Select
ActiveCell.ClearContents

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Combined MAX and IF statements?	ddansie	Excel	8	07-05-2017 08:49 AM
Error in If statements	Warren99	Excel	8	05-29-2016 01:59 PM
Help with if then statements	brent chadwick	Word VBA	35	07-25-2015 02:41 PM
Using IF statements	stuwoolf	Excel	2	01-10-2015 01:58 PM
getting IF and OR to work for 3 IF statements	nero6014	Excel	3	09-16-2014 07:28 AM