Insert column into external data range

[dblaze]

I have a sheet that gets its data from an Access query. What I need to do is insert several columns after the query refreshes. When I try:

Columns("G:G").Select
Selection.Insert Shift:=xlToRight

instead of it selecting just column G, it selects the entire sheet. I suspect there is something different about the Access range returned that won't let me insert columns. Any ideas?

Thanks,
Doug

 

[Alteran]

Are their any merged cells ?

 

[dblaze]

Yes, the top row is a merged cell. I removed that and now the insert works. Thanks - I'll remember that!

Doug

 

[Smitty]

Welcome to the Board!

You also don't need to select:

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

Generally whenever you see "Select" followed by "Selection" you can get rid of both of them.

HTH,