ByRef

[andyjames]

I have the following code but it is giving me a 'ByRef Type Argument Type Mismatch' error.
Can someone help me locate the error? (range_text is a text box)

private sub borders_cmd_click()

Dim u, v, w, x, y, z As Boolean
{the variable are then given boolean value}
Borders (range_text), u, v, w, x, y, z

End Sub

Sub Borders(rng As Range, a As Boolean, b As Boolean, c As Boolean, d As Boolean, e As Boolean, f As Boolean)

{code}

End Sub

 

[Andrew Poulsom]

You have to repeat the type for each variable:

Dim u As Boolean, v As Boolean, w As Boolean, x As Boolean, y As Boolean, z As Boolean

 

[Lewiy]

Ok, couple of things, firstly your variable declaration:

Dim u, v, w, x, y, z As Boolean

Is not doing what you think, it is declaring z as Boolean and u,v,w,x, & y as Variants. It doesn’t make a great deal of difference here but something to note for the future, you would need to declare them like so:

Dim u as Boolean, v as Boolean, w as Boolean, x as Boolean, y as Boolean, z as Boolean

Secondly, I think your problem is possibly:

Borders (range_text), u, v, w, x, y, z

Should be:

Borders (range_text, u, v, w, x, y, z)

Hope that helps!

 

[andyjames]

thank you
I'm sure I had used that technique previously.
however, it has got rid my initial error.
but now I have a run-time 'type mis-match' error.

any further errors that you can see with my code?

 

[Andrew Poulsom]

Should it be?

Borders Range(range_text), u, v, w, x, y, z