VB to Excel Autofit Problem

Hi

Take a look at following statement:

strTempAddr = strTempAddr & Trim(objAddr.Fields("Bldg_Name")) & " " _
       & Trim(objAddr.Fields("Area")) & " " & Trim(objAddr.Fields("Landmark")) _
       & vbNewLine & Trim(objAddr.Fields("City")) & " " & Trim(objAddr.Fields("District")) _
       & vbNewLine & Trim(objAddr.Fields("State"))

Then I add this string in an Excel sheet and then do autofit :

objSheet.Columns.AutoFit


But, for some reason, it just does not autofit.

Autofit works fine as long as text is in single line, but multiline text as given above spoils all the autofit.

I tried turning word wrap on/off, but no use.

Is there any way to format multiline text in a single cell ?

Thanks and Regards,
Amol.