Columns("J").Cut
Columns("G").Insert Shift:=xlToRight

with Columns("F:F").
..Style = "Comma"
..NumberFormat = "_(* #,##0.0_);_(* (#,##0.0);_(* ""-""??_);_(@_)"
end with

--
Don Guillett
SalesAid Software

"Arnold Klapheck" wrote in
message ...
I have been able to go from this:
Columns("F:F").Select
Selection.Cut
Columns("A:A").Select
Selection.Insert shift:=xlToRight

to this:
Columns("F:F").Cut
Columns("A:A").Insert shift:=xlToRigh

But when I try to go to this:
Columns("F:F").Cut Destination:=Range("A:A").Insert.shift:=xlToRight

I get an error, any suggestions?

I am also trying to get this to tighten up:
Columns("F:F").Select
Selection.Style = "Comma"
Selection.NumberFormat = "_(* #,##0.0_);_(* (#,##0.0);_(*
""-""??_);_(@_)"

I tried this but the second line dosn't work:
Columns("F:F").Style = "Comma"
Selection.NumberFormat = "_(* #,##0.0_);_(* (#,##0.0);_(*
""-""??_);_(@_)"

thanks for any help.