VBA - Select multiple ranges using ActiveCell.Row

[Kenn]

I'm trying to select cells B*:D* and H*:APP*. where *= active.cell.row. I do not want to select E*:G*.

Can't seem to get this to work & would appreciate a little help please.

When I try this code it selects everything including E*:G*

Sub Macro1()
Dim Ro As Integer
Ro = ActiveCell.Row

    Range(Cells("B" & Ro & ":" & "D" & Ro), Cells("H" & Ro & ":" & "APP" & Ro)).Select

End Sub

Thank you
K

 

[Jaafar Tribak]

This worked for me:

Sub Macro1()
    Dim Ro As Integer
    
    Ro = ActiveCell.Row
    
    Union(Range("b" & Ro & ":" & "d" & Ro), Range("h" & Ro & ":" & "app" & Ro)).Select

End Sub

 

[Kenn]

Thank you Jaafar Tribak. That's perfect.

Kenn.

 

[Rick Rothstein]

Here is another way to do it...

Intersect(Range("B:D,H:APP"), ActiveCell.EntireRow).Select