select multiple cells

[Guest]

Good morning from Mexico.
I need help on this Macro.
I am comapring one in sheet 1 the other in sheet 2
if this are diferant I need them to change the font color & background of
the two cells.

this is what I have but can't , this changes the color in one of the cell
but the other does not change

Sub crosscheck()

'Dim crosscheck As Double
'crosscheck worksheets for out of balance shedules

dblCheck = Abs(Sheets("AvgPrice NA").Range("d17").Value -
Sheets("SalesAnalysis NAGDO").Range("d90").Value)
If dblCheck > 0 Then
Sheets("AvgPrice NA").Select
Range("d17").Activate
Sheets("SalesAnalysis NAGDO").Select
Range("d90").Activate
With Selection.Font
.ColorIndex = 3
End With
With Selection.Interior
.ColorIndex = 15
.Pattern = xlSolid
End With


End If


End Sub

 

[Tom Ogilvy]

'Dim crosscheck As Double
'crosscheck worksheets for out of balance shedules

dblCheck = Abs(Sheets("AvgPrice NA").Range("d17").Value -
Sheets("SalesAnalysis NAGDO").Range("d90").Value)
If dblCheck > 0 Then
Sheets("AvgPrice NA").Select
Range("d17").Activate
Sheets("SalesAnalysis NAGDO").Select
With Selection.Font
.ColorIndex = 3
End With
With Selection.Interior
.ColorIndex = 15
.Pattern = xlSolid
End With

Range("d90").Activate
With Selection.Font
.ColorIndex = 3
End With
With Selection.Interior
.ColorIndex = 15
.Pattern = xlSolid
End With


End If
End Sub

 

[Bob Phillips]

Sub crosscheck()

'Dim crosscheck As Double
'crosscheck worksheets for out of balance shedules

dblCheck = Abs(Sheets("AvgPrice NA").Range("d17").Value -
Sheets("SalesAnalysis NAGDO").Range("d90").Value)
If dblCheck > 0 Then
with Sheets("AvgPrice NA").Range("d17")
.Font .ColorIndex = 3
.Interior.ColorIndex = 15
.Interior.Pattern = xlSolid
End With

WithSheets("SalesAnalysis NAGDO").Range("d90")

.Font .ColorIndex = 3
.Interior.ColorIndex = 15
.Interior.Pattern = xlSolid
End With

End If


End Sub