Установите формат ячейки, если появляется знак

Question

Я новичок в VBA, но я хочу создать макрос, который запускается при изменении ячейки в диапазоне "Meld".Это должно быть изменено точно.Когда кто-то вводит «&», он должен вводить заглавные буквы, цифры от 1 до 9, а затем «;».

Если честно, я не могу найти решение, и первое, что макрос не запускается, когда я что-то набираю в ячейке.Во-вторых, это как определить заглавные буквы от А до Я.

Буду очень признателен за вашу помощь.

Private Sub Worksheet_Change(ByVal Target As Range)
'MsgBox Target.Address
Dim Meld As Range
Meld = Range("b3").End(xlDown)
If Not Application.Intersect(Meld, Range(Target.Address)) Is Nothing Then
Call Checkiftherightformat
End If
End Sub

Sub Checkiftherightformat()

Dim number As String
Dim letter As String
number = 1 Or 2 Or 3 Or 4 Or 5 Or 6 Or 7 Or 8 Or 9
letter = A - Z

' format of a cell

If Meld.contains("&") Then
    If criteriarange.Meld.Formula = "" & "&" & letter Then
        If criteriarange.Meld.Formula = "" & "&" & letter & number Then
            If criteriarange.Meld.Formula = "" & "&" & letter & number & "," Then
            Else: MsgBox ("Please provide correct format after & - &(A-Z)(1-9),")
            End If
        Else: MsgBox ("Please provide correct format after & - &(A-Z)(1-9),")
        End If
    Else: MsgBox ("Please provide correct format after & - &(A-Z)(1-9),")
    End If
End If

End Sub