Excel minimieren mit aktiver UserForm

Private Sub lstString_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
With Me
If .lstString.ListCount > 0 And .lstString.ListIndex = -1 Then
MsgBox "Bitte klicken Sie in eine gültige Zeile ...", vbInformation, "No data"
ElseIf .lstString.ListCount > 0 And .lstString.ListIndex  -1 Then
Dim Zwischenablage As DataObject
Dim strProdstring  As String
Set Zwischenablage = New DataObject
strProdstring = .lstString.List(.lstString.ListIndex, 2)
Zwischenablage.SetText strProdstring
Zwischenablage.PutInClipboard
Set Zwischenablage = Nothing
MsgBox "Einfügen in SAP mit der Tastaturkombination [STRG] + [V] ...", vbInformation, " _
Der ProdString  '" & strProdstring & "'  wurde in die Zwischenablage kopiert ..."
Application.WindowState = xlMinimized
Else
MsgBox "Kein ProdString verfügbar!", vbInformation, "No data"
End If
End With
End Sub

Vielen Dank
MikeS