Hi Everyone,

I'm hoping someone could help me with a Macro. I'm looking for a macro that can highlight matching debits and credits (ex: $500 ; ($500). This way its easy to identify cost in a holding account which has not been cleared. The other catch is I was hoping each could be matched by highlighting with a unique color. Searching through the forums, I found the macro listed below. It does a strike through. I was hoping to have this automatically look at column G and highlight the entire ROW (A:G) with a unique color matching it to the debit and credit. So online two lines would be the same color. Anyone know if thats possible?


Sub OffsetFound()
Dim I As Long
Dim last As Long
Dim cell As Range
last = Selection.Row + Selection.Count - 1
For Each cell In Selection
With cell
If .Font.Strikethrough = False Then
I = 1
Do
If .Offset(I, 0) = -cell And .Offset(I, 0).Font.Strikethrough = False Then
.Font.Strikethrough = True
.Offset(I, 0).Font.Strikethrough = True
Exit Do
End If
I = I + 1
Loop Until .Offset(I, 0).Row > last
End If
End With
Next cell
End Sub


This was the script i came across earlier.