Try this:

Sub ShowMemoryUsage()

Dim dMemUsed As Double

dMemUsed = Round(Application.MemoryUsed / 1000, 1)

MsgBox "Memory used: " & dMemUsed & " kB", ,"memory usage by Excel"

End Sub


RBS


"vqthomf" wrote in message
...
Hi is there any way to get the memory used by code, so that I can write it
to
a text file. I have checked out the history on this group but can't find
anything on this subject?.
TIA
Charles