Typewriter animated text in excel

[rintelen]

Hi

I want my spreadsheet to have this message as if it is being typed out (animated) over and over again.

This should be in cell AG5:

WELCOME TO SKYNET
System is activated

 

[DaveL485]

Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Sub Macro1()
'
' Macro1 Macro
' Macro recorded 09-11-2011 by Cadbury plc
'

'
    
    
    Range("AG5").Select
    ActiveCell.FormulaR1C1 = "W"
    Sleep 100
    ActiveCell.FormulaR1C1 = "We"
    Sleep 100
    ActiveCell.FormulaR1C1 = "Wel"
    Sleep 100
    ActiveCell.FormulaR1C1 = "Welc"
    Sleep 100
    ActiveCell.FormulaR1C1 = "Welco"
    Sleep 100
    ActiveCell.FormulaR1C1 = "Welcom"
    Sleep 100
    ActiveCell.FormulaR1C1 = "Welcome"
    Sleep 100
    ActiveCell.FormulaR1C1 = "Welcome T"
    Sleep 100
    ActiveCell.FormulaR1C1 = "Welcome To"
    Sleep 100
    'and so on...
End Sub

Alter the sleep value to slow it down/speed it up.

 

[rintelen]

That works great. Can I loop it? How do I loop it?

 

[DaveL485]

This will loop forever. Hit Esc to break it.

Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Sub Macro1()
'
' Macro1 Macro
'
'
    
    Do
    Range("AG5").Select
    ActiveCell.FormulaR1C1 = "W"
    Sleep 100
    ActiveCell.FormulaR1C1 = "We"
    Sleep 100
    ActiveCell.FormulaR1C1 = "Wel"
    Sleep 100
    ActiveCell.FormulaR1C1 = "Welc"
    Sleep 100
    ActiveCell.FormulaR1C1 = "Welco"
    Sleep 100
    ActiveCell.FormulaR1C1 = "Welcom"
    Sleep 100
    ActiveCell.FormulaR1C1 = "Welcome"
    Sleep 100
    ActiveCell.FormulaR1C1 = "Welcome T"
    Sleep 100
    ActiveCell.FormulaR1C1 = "Welcome To"
    Sleep 100
    'and so on...
    Loop
    
    
End Sub

This will loop 10 times. Change the Do Until x = [value] to change the amount of times it repeats.

Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Sub Macro1()
'
' Macro1 Macro
'
'
    x = 1
    Do Until x = 10
    Range("AG5").Select
    ActiveCell.FormulaR1C1 = "W"
    Sleep 100
    ActiveCell.FormulaR1C1 = "We"
    Sleep 100
    ActiveCell.FormulaR1C1 = "Wel"
    Sleep 100
    ActiveCell.FormulaR1C1 = "Welc"
    Sleep 100
    ActiveCell.FormulaR1C1 = "Welco"
    Sleep 100
    ActiveCell.FormulaR1C1 = "Welcom"
    Sleep 100
    ActiveCell.FormulaR1C1 = "Welcome"
    Sleep 100
    ActiveCell.FormulaR1C1 = "Welcome T"
    Sleep 100
    ActiveCell.FormulaR1C1 = "Welcome To"
    Sleep 100
    'and so on...
    x = x + 1
    Loop
    
    
End Sub