I have following code to add comment to my cells from MS Acess tbale

ActiveSheet.Cells(i, j + 1).AddComment MyDatabase.Fields(j - 1).Value

It works and adds comment to my cell.

The problem is when it is in the loop which does not add second row of
comments.

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

I have to add the wait 3 seconds command in the loop and it adds second row
of comments.

Does it make sense that it needs 3 seconds to add one row of comments?
It will be too long if I have a couple lines.

Any ideas or work around for this?

Your information is great appreciated,