CERRAR USER FORM

Hola !
Tengo un User form que ejecuta una macro, pero quisiea que este se cerrara
automaticamente despues de haberla ejecutado
que instruccion tengo que usar?
por si sirve de algo aqui esta el codigo que se ejecuta al oprimr el boton
del user form

Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
ActiveWorkbook.Unprotect "VKF76KL"
Sheets("MATRICULA").Visible = True
Sheets("MATRICULA").Select
ActiveSheet.Unprotect "DFR56HG"
Range("A2").Select
Range("A1:Z5000").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:= _
Sheets("REGISTRO").Range("Q165:W166"), CopyToRange:=Range("AG1"),
Unique:= _
False
Range("AG2:AI43").Select
Selection.Sort Key1:=Range("AH2"), Order1:=xlAscending, Header:=xlGuess,
_
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("AF2").Select
Range("AG2:AI43").Select
Selection.Sort Key1:=Range("AI2"), Order1:=xlAscending, Header:=xlGuess,
_
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("AF2").Select
Range("AG2:AG43").Select
Selection.Copy
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
Sheets("REGISTRO").Select
ActiveWindow.SmallScroll Down:=-63
Range("C4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Range("D4").Select
Sheets("MATRICULA").Select
Application.CutCopyMode = False
Range("AG1:BF1").Select
Selection.EntireColumn.Delete
Range("A5004").Select
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
ActiveSheet.Protect "DFR56HG", DrawingObjects:=True, Contents:=True,
Scenarios:=True
ActiveSheet.EnableSelection = xlNoSelection
Sheets("MATRICULA").Visible = False
ActiveWorkbook.Protect "VKF76KL"
Sheets("REGISTRO").Select
Range("D4").Select
Application.ScreenUpdating = True
End Sub