How to combine 2 unrelated procedures into one sheet

[I_need]

I have applied 2 procedures to the same sheet. However, I get the following compile error "Only comments may appear after End Sub, End Function, or End Property".
My code currently looks like this:

Private Sub Protect_Sheet(ByVal Target As Range)
'this code will protect each cell once data has been entered
ActiveSheet.Unprotect ("password")
Target.Locked = True
ActiveSheet.Protect ("password")
End Sub

Option Explicit
Private Sub Multiple_Selection(ByVal Target As Range)
'this code will allow for muliple selection of a dropdown box in column G only
....blah blah
End Sub

How can I modify or combine the codes so that it registers both procedures please?

[NickyC]

Hi
you need to plut the "option explicit" at the very top of your module, before the macros
(not above Private Sub Multiple_Selection(ByVal Target As Range)
then your macros should run ok

[I_need]

I have done that and the error is not coming up anymore. However, now my Protect_Sheet function doesn't work but if I delete the Multiple_Selection procedure, it does.