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

[jcxnet]

Prueba reemplazar "A" por 1, cuando se usa el objeto Cell, este apunta a una celda con los valores numéricos de Fila,Columna.

[AprendizMexicano]

Ya le cambie pero me sigue marcando error de compilacion y de sintaxis

Saludos

[abrahamvj]

me. ????Y eso amigo??

Abraham

[jcxnet]

Cierto.. Me.Cells
debería ser algo como .cells o .activesheet.cells

[AprendizMexicano]

Gracias amigos, por su comentarios

Pero si tienen razon del codigo es ineficaz, mejor voy a utilizar este otro codigo que encontre y que si funciona.

Se los dejo por si a alguien le sirve

Convierte de minusculas a mayusculas:

Sub mayusc ( )
Set rango = Selection
For each Cell in rango
Cell.Value = Ucase(Cell.Value)
Next
End Sub

Nuevamente les reitero mi agradeciemiento por su gran ayuda, que tenga buen dia.

Saludos