Public Sub FIXED()

Application.Wait (Now + TimeValue("0:00:05"))
Dim i As Integer

For i = 1 To 70

' 1st iteration sends 2 tabs (2*1)
' 2nd iteration sends 4 tabs (2*2)
' 3rd iteration sends 6 tabs (2*3)
' ...
For t = 1 To (2 * i)
SendKeys "{TAB}", False
Next t

'Application.Wait (Now + TimeValue("0:00:01"))

SendKeys "{ENTER}", False
'Application.Wait (Now + TimeValue("0:00:01"))
SendKeys "^%{a}", False
Application.Wait (Now + TimeValue("0:00:01"))
SendKeys "%{a}", False
Application.Wait (Now + TimeValue("0:00:01"))
SendKeys "%{g}", False
Application.Wait (Now + TimeValue("0:00:01"))
SendKeys "%{INSERT}", False
Application.Wait (Now + TimeValue("0:00:01"))

Next

End Sub

HTH

Brian Herbert Withun