Removing select statements in VBA

p45cal · #2 04-13-2018, 06:33 AM

Code:

Range("A6").End(xlDown).Offset(1).Value = "x"

Code:

ActiveSheet.Shapes("Rounded Rectangle 50").ZOrder msoBringToFront
'Range("A5").Select

Code:

On Error GoTo NoX
Range(Range("A6"), Range("A6").End(xlDown)).Find(What:="x", LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=False, SearchFormat:=False).ClearContents

With the last one, instead of On Error Goto, you could:

Code:

Dim myCell As Range
Set myCell = Range(Range("A6"), Range("A6").End(xlDown)).Find(What:="x", LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=False, SearchFormat:=False)
If Not myCell Is Nothing Then myCell.ClearContents 'Else something else (such as a msgbox informing the user of non-existence)

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