VBA not cell filling correctly in IF/THEN structure

[kmmsquared]

Hello,

I am using the following code below to filter a column and color the rows of that contain cells with the correct values (this occurs 3x in my code). My problem is the if e is nothing then the column still colors. I only want the rows to be colored if e is not nothing. Any suggestions would be greatly appreciated-there is probably something simple that I can't think of. Thanks!

With Sheets("Sheet1")
   lngLastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
   s = Application.WorksheetFunction.Match("Esc", Range("1:1"), 0)
   e = Range("E2:E" & lngLastRow).SpecialCells(xlCellTypeVisible)      
 
Columns("E").AutoFilter Field:=1, Criteria1:="MAKE"
 
[COLOR=red]If Not e Is Nothing Then
Range(Cells(2, 1), Cells(lngLastRow, s)).SpecialCells(xlCellTypeVisible).Activate
With Selection.Interior
.ThemeColor = xlThemeColorAccent5
.TintAndShade = 0.599993896298105
End With
[/COLOR]End If

 

[kmmsquared]

I just ran two if then statements. One colors the cell and one tints the cells.
It may be an extra step, but it works correctly everytime.

Columns("E").Select
Selection.AutoFilter
Columns("E").Select
Selection.AutoFilter Field:=1, Criteria1:="G"
If Not e.SpecialCells(xlCellTypeVisible) Is Nothing Then
Range(Cells(2, 1), Cells(lngLastRow, s)).SpecialCells(xlCellTypeVisible).Interior.ThemeColor = xlThemeColorAccent2
End If
If Not e.SpecialCells(xlCellTypeVisible) Is Nothing Then
Range(Cells(2, 1), Cells(lngLastRow, s)).SpecialCells(xlCellTypeVisible).Interior.TintAndShade = 0.799981688894314
End If