Hafızadan temizlemek için yazdım.
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Set dict = Nothing
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Set dict = Nothing
End Sub