"Select Column method or property not available because some/all of object doesn't refer to table"
 

I'm attempting to write a macro which pastes Excel
cells into Word, and manipulates the formating. When I
run the macro, even on the same table used to record
the macro, I get:

RunTime Error 4605 "Select Column method or
property not available because some or all of object
doesn't refer to table occurs."

asterisked line causes the error (as indicated by a
yellow arrow) :

End With
Selection.Tables(1).Select
Selection.Columns.PreferredWidthType =
wdPreferredWidthPoints
Selection.Columns.PreferredWidth =
InchesToPoints(0.92)
Selection.Move Unit:=wdColumn, Count:=1
** Selection.SelectColumn**
Selection.Collapse Direction:=wdCollapseStart
Selection.Move Unit:=wdColumn, Count:=-1
Selection.SelectColumn
Selection.Collapse Direction:=wdCollapseStart
Selection.Move Unit:=wdColumn, Count:=-1
Selection.SelectColumn
Selection.Move Unit:=wdColumn, Count:=1
Selection.SelectColumn



Any ideas?


*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!