UCase mit Fehlermeldung

Sub Gross1() 'Rainer
Dim myC As Range, mySelRange As Range
Set mySelRange = Range("A1:A2")
For Each myC In mySelRange
myC.Value = UCase(myC.Value)
Next
End Sub

Sub Gross2() 'Hajo
Dim RaZelle As Range
Application.ScreenUpdating = False
For Each RaZelle In Range("A1:A2")
RaZelle = UCase(RaZelle)
Next RaZelle
Application.ScreenUpdating = False
End Sub

Private Sub Worksheet_Change(ByVal Target As Range) 'UweD
If Not Intersect(Target, Range("A1:A2")) Is Nothing Then
Target = UCase(Target)
End If
End Sub

Aber jedesmal bekomme ich Fehlermeldung:
Fehler beim Kompilieren
Projekt oder Bibliothek nicht gefunden
mit Heightlight auf "UCase"
Nach weiteren recherchen habe ich auch ein Verweis gesetzt:
Microsoft Visual Basic for Applications Extensibility 5.3
Was könnte bei meinem Version nicht stimmen
Dank und Gruss
Mehmet