Hi!

On the end of a hot day (30 degrees celcius) it's hard to think properly!!!
:-)

I have a problem, I use the next piece of code

-----------------
ModuleVarious.UnprotectSheet ActiveSheet
If cmt Is Nothing Then
ActiveCell.AddComment Text:=""
End If
ActiveCell.Activate
SendKeys "%ie~" ' opens comment field for editing
ModuleVarious.ProtectSheet ActiveSheet
--------------------

The last line is what I want, but if I implement this, I can't fill in the
Comment field. It just puts a blank commentfield in a cell
Please help me, what can I do to prevent this. Is there for example
something for waiting until the comment field is filled in?

Regards,
Mike