Schließen UserForm und Aktivierung

Private Sub cmd_EWO_Eingabe_Click()
Dim sFile As String, sPath As String
sFile = "EWO.xls"
sPath = ThisWorkbook.Path & "\" & sFile
If WkbExists("Ewo.xls") = False Then
If Dir(sPath) = "" Then
MsgBox "Datei " & sPath & " wurde nicht gefunden!"
Else
frm_Parameter.Hide
Workbooks.Open sPath
End If
Else
frm_Parameter.Hide
Workbooks(sFile).Activate
End If
End Sub

Private Function WkbExists(sFile As String) As Boolean
Dim wkb As Object
On Error Resume Next
Set wkb = Workbooks(sFile)
If Not wkb Is Nothing Then
WkbExists = True
End If
On Error GoTo 0
End Function

Was leider nicht funktioniert: die USERFORM schließt sich nicht "frm_Parameter.Hide". Wie kann ich erzwingen, dass sich die USERFORM schließt und die gesuchte Datei aktiviert wird?
Danke für Eure Hilfe.
Gruss
Werner