How do I add a column after the last column used?

Why, you can't add any more columns to the ones you already have.
Do you have all 256 filled, or with XL12 have you used all 16384 columns?
To find the first 'Empty' column after the last used one...

Sub aaLastColumn()
Dim c As Range, i As Long
Set c = Range("A1", ActiveSheet.UsedRange)
For i = c.Columns.Count To 1 Step -1
If Application.CountA(c.Columns(i)) < 0 Then
Set c = c.Columns(i + 1)
Exit For
End If
Next i
c.Select ' for testing, where your code goes.
End Sub

Change the row part for A1 above, if your data starts elsewhere, and if
there is nothing above that row anywhere else on the sheet.


Regards
Robert McCurdy
"Liz" wrote in message
...
I am stumped...

How do I add a column after the last column used? The last column used is
an unkown and varies per worksheet.

Working with rows and last row seams easier....I am getting confused
because
counts are numbers, and column referencing for ranges is in letter
format....

Thanks,
Liz