search

Greedquest / vbInvoke

vbInvoke
MIT License
9 stars 2 forks source link

Test Code #2

Closed Greedquest closed 1 year ago

Greedquest commented 1 year ago 
Option Explicit

Private Sub CallMe(Optional ByRef name As String)
    name = "Hello " & name & "!"
    MsgBox name
End Sub

Sub t()
    With vbInvoke.GetExtendedModuleAccessor("Module1", ThisWorkbook.VBProject)
        .CallMe "World"
    End With
End Sub
Greedquest commented 1 year ago

Use unit tests