Macros en Excel

[marcoszorrilla]

A ver si esto lo que quieres:

Sub MayuscMinusc()
'
' MayuscMinusc Macro
' Macro grabada el 12/02/2006 por Marcos

Dim NFil(128), NCol(128), CFil(128), Ccol(128), Nra, Nia, Nja, ra, ia, ja As Integer
Dim letras As String
AreaCount = Selection.Areas.Count
If AreaCount < 128 Then
    ia = 1
    For Each A In Selection.Areas
        NFil(ia) = A.Row
        NCol(ia) = A.Column
        CFil(ia) = A.Rows.Count
        Ccol(ia) = A.Columns.Count
        ia = ia + 1
    Next A
    Nra = ia - 1
    ra = 1
    ia = 1
    ja = 1
    Do While ra <= Nra
        Nia = CFil(ra)
        ia = NFil(ra)
        Nja = Ccol(ra)
        ja = NCol(ra)
        Do While ia < NFil(ra) + CFil(ra)
            Do While ja < NCol(ra) + Ccol(ra)
            
                If Asc(Cells(ia, ja).Value) > 96 Then
                letras = UCase(Cells(ia, ja).Value)
                Cells(ia, ja) = letras
                ja = ja + 1
                Else
                letras = LCase(Cells(ia, ja).Value)
                Cells(ia, ja) = letras
                ja = ja + 1
                
                End If
                
                
            Loop
            ja = NCol(ra)
            ia = ia + 1
        Loop
        ra = ra + 1
    Loop
    
Else
    MsgBox "No aplica a más de 128 áreas, y usted seleccionó " & AreaCount & ".", vbDefaultButton1, "David le recuerda:"
End If

End Sub

Un Saludo.

[valera]

El codigo que me enviaste marca este error cuando ejecuto el macro: Se ha producido el error '5' en tiempo de ejecucion Argumento o llamada a procedimiento no valida y es en esta linea de codigo es donde lo marca:

If Asc(Cells(ia, ja).Value) > 96 Then

Por tu ayuda muchas gracias y saludo que estes bien

[valera]

Ya encontré porqué me mandaba el error: lo que pasa es que escribia el texto en diferente celdas y lo seleccionaba con otras celdas vacias.
Otro favor como comparo las celdas vacias para que cuando ejecute el macro si encuentra celdas vacias que no lo tome en cuenta sino que haga la conversion a todas aquellas celdas que contengan texto.