Creating a VBA Macro to move Drawings to 0,0

I am trying to create a Macro that I can run in the batch processor to move the bottom left corner of my drawings to the point 0,0. The problem is that these drawings are all located at different locations in model space. I tried just a simple CHOOSE ALL, MOVE, KEY-IN XY=0,0 macro, but because the drawings are all scattered around, it doesn't work correctly. Does anyone have a solution to this problem?