We value your feedback.
Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
Sub SelectColumns() Dim ws As Worksheet Set ws = ThisWorkbook.Worksheets("Orders") ws.Select ActiveWindow.zoom = 80 Dim lo As ListObject Set lo = ws.ListObjects("Orders") lo.DataBodyRange.Columns(1).Resize(, 1).Select lo.DataBodyRange.Columns(10).Resize(, 1).Select Set ws = Nothing Set lo = Nothing End Sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.