Consider the following illustrative example

```
Private Sub drawBorders(listOfBorders)
    For Each Item In listOfBorders
        With .Borders(Item)
            .LineStyle = xlContinious
            .ColorIndex = xlAutomatic
            .Weight = xlThin
        End With
    Next Item
End Sub

Sub main()
    Dim TopBottom() as Variant
    Dim myRange As Range
    TopBottom = Array(xlEdgeTop, xlEdgeBottom)
    myRange = Range("A1")

    With myRange
        .value = a
        Call DrawBorders(topBottom)
    End With
End Sub

```

I have a sequence of `With` statements where some of the code is pretty repeating. 

I get an error at the `DrawBorders` sub :

> 
> Invalid or unqualified reference 
> 
> 
> 

Is it possible to import the reference from the `With` statement into the `Sub`?