Chamar userform com uma condicional

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "A1" Then
        Select Case Target
        Case "AleVBA"
            UserForm.Show
        Case "AleVBA_2"
              UserForm2.Show
        End Select
    End If
   
End Sub