conversion a mayusculas

[gabicasi]

Buenas, a ver si alguien me puede ayudar con esto.
Estoy intentando que cuando un usuario introduzca datos en un rango de campos se conviertan automáticamente en mayúsculas,
tengo este modulo:
Option Explicit
Public Function AMayusculas(strTexto As String) As String
AMayusculas = UCase(strTexto)
End Function

y luego esto:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim KeyCells As Range
Set KeyCells = Range("B7,B8, B9,B10,B12,B13,B21,B22,B23,B25,B26,B32,B33,B36,B37 ,B38,B42,B44,B45,B46")
If Not Intersect(Target, KeyCells) Is Nothing Then
Target.Value = AMayusculas(Target.Value)
End If
End Sub


pero me da errores, espacio de pila insuficiente,....

soy novato en esto, alguien me puede ayudar? trabajo con Excel 2013
Gracias de antemano