Syntax Error on Function pass?

[Roderick_E]

Why am I getting a syntax error? Calling from a userform button. Thanks

Private Sub CommandButton1_Click()
Dim modname As String
Dim twb As String
strfiletoopen = Application.GetOpenFilename _
(Title:="Please choose a file to open", _
FileFilter:="Excel Files *.xls* (*.xls*),")
'CopyModule(strFiletoopen, "Module1", ThisWorkbook)
modname = "test1"
twb = "test2"
[COLOR=#ff0000]testit (strfiletoopen,modname,twb)[/COLOR]
End Sub

Function testit(sourcewb As String, modname As String, targetwb As String)
MsgBox sourcewb & "--" & modname & "--" & targetwb
End Function

 

[Norie]

Remove the brackets or use Call.

Private Sub CommandButton1_Click()
Dim modname As String
Dim twb As String
Dim strfiletoopen As String

    strfiletoopen = Application.GetOpenFilename _
                    (Title:="Please choose a file to open", _
                     FileFilter:="Excel Files *.xls* (*.xls*),")
    'CopyModule(strFiletoopen, "Module1", ThisWorkbook)
    modname = "test1"
    twb = "test2"
    testit strfiletoopen, modname, twb
End Sub

 

[Roderick_E]

Remove the brackets or use Call.

Private Sub CommandButton1_Click()
Dim modname As String
Dim twb As String
Dim strfiletoopen As String

    strfiletoopen = Application.GetOpenFilename _
                    (Title:="Please choose a file to open", _
                     FileFilter:="Excel Files *.xls* (*.xls*),")
    'CopyModule(strFiletoopen, "Module1", ThisWorkbook)
    modname = "test1"
    twb = "test2"
    testit strfiletoopen, modname, twb
End Sub

duh, perfect -- thanks!