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

The fact to Hit the Enter Key,
On enter key hit also closes the messabe box.
To make your code running completely modaL
Create a userform,
Select the userform activate event.
Call your code from that event
Regards
JY

"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

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

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