Error when I run vba code after typing in a cell

[KlausW]

Hi every one
I use this VBA code to insert a letter into a cell and then have it run a VBA code afterwards.
But I can't get it to run can anyone help.
Any help will be appreciated.
Best regards
Klaus W

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Selection.Count = 1 Then

If Not Intersect(Target, Range("k2:k154")) Is Nothing Then

Range("y16").Value = Target.Offset(0, -10).Value

Call Send_mail

Target.Value = "S"

End If

If Not Intersect(Target, Range("l2:l154")) Is Nothing Then

Range("aa16").Value = Target.Offset(0, -11).Value

Call Send_mail1

Target.Value = "G"

End If

End If

End Sub

 

[Snakehips]

@KlausW On the face of it the code looks fine to me.
Maybe a silly question but you do have this code in the code module of the sheet concerned?
It will not work if in a Code Module.

Or, do you have events accidentally disabled?
Maybe type the command line

Application.EnableEvents = True

in the Immediate pane of the VBA editor and hit return.

 

[KlausW]

@KlausW On the face of it the code looks fine to me.
Maybe a silly question but you do have this code in the code module of the sheet concerned?
It will not work if in a Code Module.

Or, do you have events accidentally disabled?
Maybe type the command line

Application.EnableEvents = True

in the Immediate pane of the VBA editor and hit return.

module of the sheet

 

[KlausW]

@KlausW On the face of it the code looks fine to me.
Maybe a silly question but you do have this code in the code module of the sheet concerned?
It will not work if in a Code Module.

Or, do you have events accidentally disabled?
Maybe type the command line

Application.EnableEvents = True

in the Immediate pane of the VBA editor and hit return.

@KlausW On the face of it the code looks fine to me.
Maybe a silly question but you do have this code in the code module of the sheet concerned?
It will not work if in a Code Module.

Or, do you have events accidentally disabled?
Maybe type the command line

Application.EnableEvents = True

in the Immediate pane of the VBA editor and hit return.

I just can't figure out where to put it

 

[abdelfattah]

Hi KlausW,
what's the error , where is debug line?!
what do you expect ?

 

[KlausW]

this is error message

 

[abdelfattah]

I'm not really sure!
but is that in standard module 1 or rename module 1?
is name in standard module 1 like this ?
Sub Send_mail()
End Sub
if it's so , can you change the name and see how goes?

 

[Snakehips]

Yep, looks like you have a code module that you have named Send_mail ??
With your subroutine within it also named Send_mail ??

Rename that Module so that it does not conflict with the Sub name.

HTH

 

[KlausW]

Thanks both of you, I just had to change the module name and it ran. Greetings from Klaus Denmark