Sub selectRange() Selection.Tables(1).Columns(Selection.Information (wdStartOfRangeColumnNumber)).Select End Sub