Ayuda con macro para convertir a mayusculas

[AprendizMexicano]

Hola a todos

Me podrian ayudar por favor a corregir la siguiente macro es para convertir a mayusculas en la columnas, y me marca error de compilacion y error de sintaxis en If Intersect (target........ y en For i=2 to Me.Cells......:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target‚ Me.Range("A:A")) Is Nothing _
Then Exit Sub
With Application
.ScreenUpdating = False
.EnableEvents = False
.Calculation = xlCalculationManual
For i = 2 To Me.Cells(65536‚ “A").End(xlUp).Row
Me.Cells(i‚ “A").Value = _
UCase(Me.Cells(i‚ “A").Value)
Next i
.ScreenUpdating = True
.EnableEvents = True
.Calculation = xlCalculationAutomatic
End With
End Sub

Les agradezco mucho su ayuda

Reciban un cordial saludo