Skip Hidden Columns

Originally Posted by stnkynts

Try this:

Sub Select_Range()
Dim ws As Worksheet:    Set ws = Sheets("Sheet1")

ws.Range(ws.Cells(1, 1), ws.Cells(ActiveSheet.UsedRange.Rows.Count, ActiveSheet.UsedRange.Columns.Count)).SpecialCells(xlCellTypeVisible).Select

End Sub

Is there a way to get this code to only select across a certain number of columns as this code seems to be selecting everything on the sheet. there is data in columns E onwards but I only want to select the first 3 visible columns