To fix, change the ByVal to ByRef in the function:
Public Sub RunMe()
Dim wksTestArray() As Worksheet
MsgBox SendArrayToFunction(wksTestArray())
End Sub
Public Function SendArrayToFunction(ByRef vntArray As Variant) As Boolean
SendArrayToFunction = True
End Function