uppercase og knap

I thiskworkbook har jeg denne makro:


Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("D9:D38")) Is Nothing Then
        Application.EnableEvents = False
        Target = UCase(Target)
        Application.EnableEvents = True
    End If
End Sub

-----------------------

Den virker også upåklageligt, men der er dog et problem jeg gerne vil have løst. Jeg har også i mit regneark en åbn knap, der henter data fra et dokument og sætter det ind i arket på et bestemt sted. Disse data ER skrevet med stort når de kommer ind i arket, da de jo bliver det af ovenstående makro, når dataene bliver gemt.

Men når jeg trykker på min åbn knap, kommer VBA med denne fejl i "store bogstaver" makroen:

Error 13: Type Mismatch. Hvordan undgår jeg dette?