macro for selecting non-adjacent cells
I'd use:
Dim iRow As Long
Dim myRng As Range
iRow = 5 'or activecell.row
With ActiveSheet
Set myRng = Intersect(.Rows(iRow), .Range("a1,c1,e1,h1,k1").EntireColumn)
End With
myRng.Select
EricBB wrote:
how can i edit the below line so that row no. will be a variable. i.e. if i
select cell "A5" the "3" will become 5.
Range("A3,C3,E3,H3,K3").Select
thanks for any help.
--
Dave Peterson
|