I have this loop below that I programmed on my machine at home, but when I take the same file I run it on at home and the same code and plug it in on another machine at home or even my machine at work I get an error that points to the 'If rng.Value < "0" Then line that says
Run-time error '13':
Type mismatch
For i = LaRow To 2 Step -1
Set rng = Range("T" & i)
If rng.Value < "0" Then
Range("A" & i & ":AE" & i).Interior.ColorIndex = 38
Range("A" & i & ":AE" & i).Interior.Pattern = xlSolid
Range("AR" & i).Value = "1"
End If
Next
Earlier in the code I have the values in Column T formatted into currency, like so.
Range("T" & i).Style = "Currency"
Maybe that has something to do with it? Any help on this error is appreciated. Thanks in advance.
Bookmarks