Type mixture error

[Freddie Mac]

I am trying to send an array and a variable of the type Range between two
subs (it works fine without the array) but I get type error in ByVal
reference. I dont get it. Code:

Private Sub hittaRubriker(varWorksheetInfoArray As Variant)
Dim rng1 As Range
Set rng1 =
Worksheets(varWorksheetInfoArray(0)).Cells.Find_(varWorksheetInfoArray(1),
LookIn:=xlValues)
Call chartMaker(varWorksheetInfoArray, rng1)
........

Private Sub chartMaker(varWorksheetInfoArray As Variant, rng1 As Range)

Please please help me with this!!!! I would be most greatful!

[Bob Phillips]

Don't get the error. What doe the code calling hittaRubriker look like?

--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"Freddie Mac" <[email protected]> wrote in message
news:[email protected]...
> I am trying to send an array and a variable of the type Range between two
> subs (it works fine without the array) but I get type error in ByVal
> reference. I dont get it. Code:
>
> Private Sub hittaRubriker(varWorksheetInfoArray As Variant)
> Dim rng1 As Range
> Set rng1 =
> Worksheets(varWorksheetInfoArray(0)).Cells.Find_(varWorksheetInfoArray(1),
> LookIn:=xlValues)
> Call chartMaker(varWorksheetInfoArray, rng1)
> .......
>
> Private Sub chartMaker(varWorksheetInfoArray As Variant, rng1 As Range)
>
> Please please help me with this!!!! I would be most greatful!

[John.Greenan]

is rng1 always a range or can it be nothing if the .Find method finds nothing?

why not just have chartMaker run the extra lines

Dim rng1 As Range
Set rng1 =
Worksheets(varWorksheetInfoArray(0)).Cells.Find_(varWorksheetInfoArray(1),
LookIn:=xlValues)

--
www.alignment-systems.com


"Freddie Mac" wrote:

> I am trying to send an array and a variable of the type Range between two
> subs (it works fine without the array) but I get type error in ByVal
> reference. I dont get it. Code:
>
> Private Sub hittaRubriker(varWorksheetInfoArray As Variant)
> Dim rng1 As Range
> Set rng1 =
> Worksheets(varWorksheetInfoArray(0)).Cells.Find_(varWorksheetInfoArray(1),
> LookIn:=xlValues)
> Call chartMaker(varWorksheetInfoArray, rng1)
> .......
>
> Private Sub chartMaker(varWorksheetInfoArray As Variant, rng1 As Range)
>
> Please please help me with this!!!! I would be most greatful!