.cells(1,1).ShrinkToFit = True
What I typically do with stuff like this is to use the Macro recorder in Excel to record me manually doing what I want done, stop the recording, and the Edit the macro. The code it generates is usually dead on for what I need.