not able to "call" a macro.

[VectorW2]

I have five different macros that run depending on what cell is selected. They are linked to a text box. However; I am trying to get the macros to run depending on one cell whose value is chosen from a drop down menu. Looking around for a solution, it appears that the code should be like this:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address(False, False) = "j7" Then

        Select Case Target.Value
        
        Case 1
            Call addday1
        
        Case 2
            Call addday2
        
        Case 3
            Call addday3
            
                        
        End Select
        
    End If
End Sub

But I am missing something because this is not working. This doesn’t run any of the macros no matter what is selected in the dropdown menu in cell j7. What am I leaving out?

Thanks.

[jeffreybrown]

Your post does not comply with Rule 3 of our Forum RULES. Use code tags around code.

Posting code between [CODE] [/CODE] tags makes your code much easier to read and copy for testing, it also maintains VBA formatting.

Highlight your code and click the # icon at the top of your post window. More information about these and other tags can be found here

[jeffreybrown]

What is in J7?

[VectorW2]

it is currently blank; the options are from drop down are nothing, 1, 2, 3, 4, 5.

[jeffreybrown]

I see nothing wrong with the macro, but also, I ran it on a test and it runs fine.

Did you place the macro in the sheet module and not in a regular module?

[VectorW2]

maybe that is the issue. How do I check and see if this is the issue and do that if it is?

[jaslake]

Hi VectorW2

Jeff asked me to follow up on this...

Place this Code in the Worksheet Module of the Worksheet your monitoring.

Copy the Code
Right Click on the Subject Tab
Select "View Code"
Paste the Code in the Right Hand Window.
Get out of VBA (Alt + F11)

Select an item from the DropDown in Cell J7...the Code will fire.

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Cells.Count > 1 Or IsEmpty(Target) Then Exit Sub
    If Target.Address = "$J$7" Then
       Select Case Target.Value
        Case 1
            Call addday1
        Case 2
            Call addday2
        Case 3
            Call addday3
        Case 4
            Call addday4
        Case 5
            Call addday5
        Case Else
            'Do Nothing or your Code here
        End Select
    End If
End Sub

See attached...