Macro to send Workbook as Mail

Send active workbook through Outlook

Sub SendWorkbook()
Dim objOutlook As Object
Set objOutlook = CreateObject("Outlook.Application")
Dim objEmail As Object
Const olmailItem As Long = 0
Set objEmail = objOutlook.CreateItem(olmailItem)
With objEmail
.To = ""
.CC = ""
.BCC = ""
.Subject = "For review"
.Body = "Please find the attached file"
.Attachments.Add ActiveWorkbook.FullName
End With
Set objEmail = Nothing:
Set objOutlook = Nothing
End Sub

How to use codes shared here?