Here is a small modification to F. Rodriquez's answer.
This will indicate the memory utilized by the global variables.
checkMemory[]:=Grid[Sort[({ByteCount[ToExpression[#1]],HoldForm[#1]}&)/@Names[Global`*],First[#1]>First[#2]&]]
Thanks, Craig. Much obliged.
Gregory