I have this macro and I would like to know if there is a way to add something to it to have the email sent to any email address I put into the macro.

ActiveSheet.Unprotect
ActiveWorkbook.Unprotect
Range("B:B,E:E,F:F,G:G,H:H,I:I,J:J,K:K,L:L").Select
Range("L1").Activate
Selection.EntireColumn.Hidden = True
Application.Dialogs(xlDialogSendMail).Show
Selection.EntireColumn.Hidden = False
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
ActiveWorkbook.Protect Structure:=True, Windows:=FalseThanks