Thank you all and this web site,
I got it! The answer for me was to start a loop and do a sendKey "ECS" every x seconds. The loop dose not take any processer time if you delay the loop with the Sleep command. You must Declare The sleep function api.
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Declare Function GetActiveWindow Lib "user32" () As Long
'
'*************************************************************************************
'Routine : CursorBump
'Created On : 01/02/04
'Created By : Ken Alvarez
'About : Bumps Cursor out of edit mode
'Ver 01/02 Initial Version Did not Use this procedure but
' did use the onkey nto disable F2
' 04/13 Need to use cusorbump but takes too much Processer
' time (waah,waah) so Added a delay
'**************************************************************************************
Public Sub CursorBump()
Dim PauseTime, Start, Finish, TotalTime
On Error GoTo CursorBumpError
Do
PauseTime = TIMER_CursorBump ' Set duration.
Start = Timer ' Set start time.
Do While Timer < Start + PauseTime
Sleep 1 ' Tried using wait command but
DoEvents ' Yield to other processes.
Loop
'We check for row 37 again becuase the user could move cells during the time loop.
'We check for excel being active window
'We check for toptapositions being the Active Application
If GetActiveWindow <> 0 And Not ActiveCell.Row = CursorBump_Row And ActiveWindow.Caption = "TopTAPositions.xls" Then
'Debug.Print GetActiveWindow
Application.SendKeys "{ESC}"
End If
Loop
'Application.OnTime Now + TimeValue(PauseTime), "CursorBump"
Exit Sub
CursorBumpError:
MsgBox Err.Description
End Sub
