Hi Ken,
I'm going to need help
here is the other one
Private Sub Worksheet_Change(ByVal Target As Range)
If Range("difference").Value = "MORE Than Last Lease" And Not Intersect(Target, Range("I1:I600")) Is Nothing Then
Application.EnableEvents = False
Dim a As Long
With Range("difference")
For a = 1 To 5
.Font.ColorIndex = 2
Application.Wait (Now + TimeValue("00:00:01"))
.Font.ColorIndex = 3
Application.Wait (Now + TimeValue("00:00:01"))
Next a
End With
Application.EnableEvents = True
End If
End Sub
I tried putting this after the last End If and before End Sub and also before If Range>>>>but I get and error message.
If Intersect(Target, Range("c138:c300")) Then
ActiveCell.Offset(0, 6).Range("A1").Select
'End If
What I'm doing is: if Range "difference" has the text "more than last lease", it will flash a few times after I enter a number in I row
Range"difference" has an If formula that puts in the text if a condition is met in a different cell
I want the cursor to move over 6 cells after I put in a number in C.
mike