Load UserForm if Cell Equals "xyz" 1

[RP1America]

Fairly new to VBA, and this seems like it should be easy. I'm just not understanding at this point. Any help is greatly appreciated!

If any cell in Range rPlanAmend equals "Plan Amendment(s) *" on change (selected from drop down in those cells) then I would like to run a UserForm. If something other than "Plan Amendment(s) *" is chosen, do nothing.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rPlanAmend As Range

Set rPlanAmend = Range("A7:A17", "A20:A26")

If Range("rPlanAmend").Value <> "Plan Amendment(s) *" Then
Exit Sub
ElseIf Range("rPlanAmend").Value = "Plan Amendment(s) *" Then
Load UserForm1
UserForm1.Show
End If

End Sub

Thanks!
Ryan

 

[SkipVought]

Hi,

Private Sub Worksheet_Change(ByVal Target As Range)
    
    If Not Intersect(Target, Union([A7:A17], [A20:A26])) Is Nothing Then
    
        If Target.Value Like "Plan Amendment(s) *" Then
            Load UserForm1
            UserForm1.Show
        End If
    
    End If

End Sub

Skip,

_{Just traded in my old subtlety...
for a NUANCE!}

 

[RP1America]

Thank you Skip!!