Feliz Cumple

Sub Animacion()
    Dim Rango As Range
    Set Rango = ThisWorkbook.Worksheets("Hoja1").Range("A1:P25")
    Rango.Interior.Color = RGB(0, 0, 0)

    TextoPausado "Feliz Cumpleaños Ing Asael!!!"
End Sub

Function TextoPausado(texto As String)
    Dim MiCelda As Range
    Dim TextoParcial As String
    Dim i As Integer

    Ajustes MiCelda, "C10"

    ' Loop para escribir letra por letra
    For i = 1 To Len(texto)
        TextoParcial = Mid(texto, 1, i)
        MiCelda.Value = TextoParcial
        Pause 0.4
        DoEvents
    Next i
End Function

Function Pause(ByVal Seconds As Double)
    Dim EndTime As Double
    EndTime = Timer + Seconds
    Do While Timer < EndTime
        DoEvents
    Loop
End Function

Function Ajustes(Celda As Range, Pos As String)
    Set Celda = ThisWorkbook.Worksheets("Hoja1").Range(Pos)

    Celda.Value = ""
    Celda.Font.Color = RGB(32, 245, 10)
    Celda.Font.Size = 39
End Function