Private Sub Worksheet_Change(ByVal Target As Range)

I have this code that already works but I would like to add an email option to Column O but I can't seem to figure out the code to make this work with 3. When its just column M and N it works great. Any help would be great.

Here you go!

If I understand your question correctly this change should be all you need:

' Fire only if column M or N or O
If Intersect(Target, Range("Table_Supply[[Send Email to Reorder]:[Email Peggy to Reorder]]")) Is Nothing Then Exit Sub

What about [Email Katie to Reorder] for column N? When I add [Email Peggy to Reorder] it highlights that row of code in yellow up to Then

The syntax

[Send Email to Reorder]:[Email Peggy to Reorder]

means starting with column [Send Email to Reorder] and including all columns through [Email Peggy to Reorder] just as if you had written M:O.

Does it give you an error message? I do not get an error when I run it.

Thank you! That works great I didn't realize that it worked like that still trying to learn VBA.