Help with simple code

[pauluk]

I am using the following code to delete certain cells depending on if o
cell is blank. I am having some problems can you help? I think it i
what i am using to represent a blank cell "="

Dim rng As Range
Dim rng2 As Range
Dim rng3 As Range
Dim rng4 As Range
Dim Rng5 As Range
Set rng = Worksheets("Sheet1").Range("B:B")
Set rng2 = Worksheets("Sheet1").Range("F:F")
Set rng3 = Worksheets("Sheet1").Range("J:J")
Set rng4 = Worksheets("Sheet1").Range("N:N")
Set Rng5 = Worksheets("Sheet1").Range("R:R")
If rng.Value = "=" Then
Range("A:A").Select
Selection.ClearContents
Range("C:C").Select
Selection.ClearContents
End I

 

[Jan Karel Pieterse]

Hi Pauluk,

If rng.Value = "=" Then

Make that:

If rng.Value = "" Then

Regards,

Jan Karel Pieterse
Excel MVP
www.jkp-ads.com

 

[Chip Pearson]

Paul,

Why are you testing rng.Value for an equals sign? To test for an
empty cell, use "". E.g.,

If rng.Value = "" Then
' your code
End If


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com