Here is something to play with. Probably won't help much because if yo
test it by opening/closing workbooks the Free Memory mysteriously stay
the same whilst the Memory Used changes.

Doesn't give the same value as Task Manager either.

In the Windows 3.1 days Excel did not restore memory to the system o
closing, so merely opening and closing it without doing anything woul
crash the system after a few times.

'------------------------------------------
Sub EXCEL_MEMORY()
On Error Resume Next
PT = ActiveSheet.PivotTables(1).PivotCache.MemoryUsed
rsp = MsgBox( _
"Memory Used : " & Format(Application.MemoryUsed, "###,###")
vbCr & _
"Free Memory : " & Format(Application.MemoryFree, "###,###")
vbCr & _
"----------------------------------------" & vbCr & _
"Total Memory : " & Format(Application.MemoryTotal, "###,###"
& vbCr & _
"----------------------------------------" & vbCr & _
"PivotCache : " & Format(PT, "###,###") _
, vbOKOnly, " EXCEL MEMORY")
End Sub
'------------------------------------------------

--
Message posted from http://www.ExcelForum.com