Selecting multiple columns

  • Thread starter Thread starter Kiloran
  • Start date Start date
K

Kiloran

I can select Column A with either Columns("A").Select or Columns(1).Select

I can select Columns A-C with Columns("A:C").Select. However,
Columns(1:3).Select does not work.

How can I select a range of columns using a numeric reference?

--Alan
 
Hi Alan,

Try something like this,

Sub SelectColumn(stcol As Integer, lastcol As Integer)

If lastcol >= stcol And lastcol > 0 And stcol > 0 And stcol <= 256 And
lastcol <= 256 Then

Columns(stcol).Resize(, lastcol - stcol + 1).Select

Else
'for demo purpose

MsgBox "Couldn't select Col."

End If

End Sub

Sub test()
SelectColumn 1, 3 ' A-C
End Sub



Regards,
Shah Shailesh
http://members.lycos.co.uk/shahweb/
 
Back
Top