The problem described in http://support.microsoft.com/kb/214394 seems to
prevent AutoFit from working as expected.
Is there a progammatic solution?
I tried

both Please advise,
I am trying to add columns as per the following code:
       Columns("B:B").Select
       Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove

I have learned how to work with Excel completely on my own with no books or
anything, so I don't know the correct verbage to ask my question.
Basically it is this.
Cell D41 = J41*1.3.

I have a list of songs in one cell as follows:
Number.  Song Title - Artist
1. Let the Music Play - Shannon
I would like to extract the number 1 in one cell then Let the Music Play in

I need to write a macro that will automatically start whenever a user clicks
on (i.e., switches to) a certain tab (Sheet2).  And all the macro needs to do
execute the PivotTable "Refresh Data" command.
Can someone kindly tell me how to do this?

Is there a way to find a user's complete path to the location of their My
Documents folder and assign that path to a variable called pname?
For example, the complete path to my My Documents folder is:
C:\Documents and Settings\bob\My Documents\

I am downloading a 2-dimensional, zero-based, Variant array from
Bloomberg for various securities.  For any given security, there are
three situations: 1) the array is empty; 2) there are two elements
(one row, two columns); or 3) there are two or more elements in each

I want to loop through a range of cells to see if the words 'Grand Total'
exist.  If it does, one message box comes up, if not, another box.  
Here is the code I am using:
Sub FindLine()

Sub FindLine()
Range("I11").Select
Do Until ActiveCell = "Grand Total"
MsgBox "Please delete extra rows", vbOKOnly, "Extra Rows Found"

I am using the following code to delete a row in a spreadsheet based
on the value (zero) in that row:
Sub RemoveZero()
 Dim RngColAB As Range

I am looking at a particular cell (E5) and if the word Total is in there I
want it to delete the worksheet.
Not sure why the following code doesn't work.  Seemd fairly straight forward.
If Sheets("Baton Rouge").Cell(5, 1) = "TOTAL" Then

I want to import data into the end of a list, or copy with the first row
being the last * row in the list? does someone know how to reference this *
cell.  Thanks.
Erin

I have a spreadsheet with some cells that have conditional formatting.  In
the Workbook_BeforePrint event, I have VB code that looks at cells that have
conditional formatting.  It determines if the results of the conditional
formatting formula equate to True (and therefore turns ...

I have an Excel ERROR dialogue box that says:
"Excel cannot complete this task with available resources. Choose less
data or close other applications"  OK
The code actually finishes and accomplishes its goal though this error

I am utilizing a find scenario where I locate data in a cell and then select
the column
   Selection.EntireColumn.Select
From here I need to extend my selection to include the column to the right.