Passing range to a Sub
 

I've got a worksheet_selection change event and under certain circumstances,
I'd like to call another procedure. I need to pass the TARGET range to that
other procedure. How do I do this? I've tried a couple of things that
don't seem to work.

Thanks

Passing range to a Sub
 

Sub Test1()

Dim rng As Range

Set rng = Range(Cells(1), Cells(5, 5))

Test2 rng

End Sub


Sub Test2(rng As Range)

MsgBox rng.Cells.Count

End Sub


RBS


"Barb Reinhardt" wrote in message
...
I've got a worksheet_selection change event and under certain
circumstances,
I'd like to call another procedure. I need to pass the TARGET range to
that
other procedure. How do I do this? I've tried a couple of things that
don't seem to work.

Thanks

Passing range to a Sub
 

And it works just the same in worksheet event:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Test2 Target

End Sub

RBS


"Barb Reinhardt" wrote in message
...
I've got a worksheet_selection change event and under certain
circumstances,
I'd like to call another procedure. I need to pass the TARGET range to
that
other procedure. How do I do this? I've tried a couple of things that
don't seem to work.

Thanks