On Mar 5, 4:15 pm, "Don Guillett" wrote:
try

Sub testInterActive()
Dim x As Integer
Application.EnableEvents = False
'Application.Interactive = False
For x = 1 To 300
Range("C12").Value = x
Next x
MsgBox "Long procedure completed"
'Application.Interactive = True
Application.EnableEvents = True
'MsgBox "Long procedure completed"
End Sub

Don Guillett
SalesAid Software
"Kieranz" wrote in message

ups.com...

Hi all,
I have the following code...
Sub testInterActive()
Dim x As Integer
Application.Interactive = False
For x = 1 To 10000
Range("C12").Value = x
Next x
MsgBox "Long procedure completed"
Application.Interactive = True
End Sub

What happens is that whilst the long procedure is running and you
happen to punch couple of keys followed by "Enter" key, at the end of
the procedure those keys that you punched are recorded on to the
sheet. PS keep punching couple of more times whilst the procedure is
running and remember to press "Enter" after each punch attempt. The
Msgbox also does not appear.
Qn. What gives or is happening? And how do you prevent this?
Many thks. Rgds KZ

Hi Jean and Don,
Many thks. I thought that interactive false prevents user actions?
Rgds KZ