Date problems

[Guest]

I am trying to get this simple code to work. Basically, i want to set this
up so that if it has been less than 30 days between dates it will return a
value. This is the code:

OpenDate = CDate(TransAmount.Offset(0, -4))
TodayDate = CDate(TransAmount.Offset(0, 12))
If TransAmount.Offset(0, -2) = "C" And DateDiff("d", TodayDate,
OpenDate) <= 32 And TransAmount >= 750 Then
TransAmount.EntireRow.Select
Selection.Font.Bold = True
With Selection.Interior
.ColorIndex = 37
.Pattern = xlSolid
End With
TransAmount.Offset(0, -7).Select
ActiveCell.Value = "HOLD"
End If

i keep getting an "object needed" error. Any ideas?

 

[Tyla]

What line of code is highlighted when the error occurs? Is
"TransAmount" always initialized properly?

/ Tyla /

 

[Guest]

Do you have
Dim TransAmount as Range

???