Function ZatvoripFolder(ImeFoldera As String)
Dim winHwnd As Long
Dim RetVal As Long
winHwnd = FindWindow(vbNullString, ImeFoldera)
If winHwnd <> 0 Then
PostMessage winHwnd, WM_CLOSE, 0&, 0&
Else
MsgBox "NIJE OTVOREN"
End If
End Function