Should be Easy. Need help on selecting range.

[pedie]

I want the selection to show cross way.
I have two lines here: i want them to be selected in one go and not one by one.

[FONT=Courier New]Range(Cells(rw, "A"), Cells(rw, "G")).Select
Range(Cells(1, cl), Cells(10, cl)).Select[/FONT]

Current code:

[/FONT]
[FONT=Courier New]Option Explicit
Sub hilightRowsAndColumns()
Dim cl, rw
cl = Selection.Column
rw = Selection.Row
Range(Cells(rw, "A"), Cells(rw, "G")).Select
Range(Cells(1, cl), Cells(10, cl)).Select
End Sub

Thanks for Helping!

 

[AlphaFrog]

Sub hilightRowsAndColumns()
    Dim cl As Long, rw As Long
    cl = Selection.Column
    rw = Selection.Row
    Union(Range(Cells(rw, "A"), Cells(rw, "G")), Range(Cells(1, cl), Cells(10, cl))).Select
End Sub

 

[pedie]

Alpha, perfect. can you please make one more change?

I want activecell/selection [the cell that was selected before running code...] cell be activated from the selection i made...

 

[AlphaFrog]

Sub hilightRowsAndColumns()

    Dim c As Range
    
    Set c = ActiveCell
    
    Union(c, _
          Range(Cells(c.Row, "A"), Cells(c.Row, "G")), _
          Range(Cells(1, c.Column), Cells(10, c.Column))).Select
          
    c.Activate
    
End Sub

 

[pedie]

Thank you soo much! Perfect!