Flying text message

[MarkCBB]

Hi there VBA pros,


I would like to make some text i.e. "Welcome to the new system, please ensure you capture data correctly" to appear in a cell but flying from one side of the cell to the other side (right to left). text appearing from the cell boarder and disappearing at the left boarder. like messages on websites.

i tried using the following code:

sub fly_text
sheet1.range("a1").InsertIndent 1
end sub

but it is not working the way it should and its not the best way to do so.

 

[wigi]

Andy Pope has a nice suggestion:

http://www.ozgrid.com/forum/showthread.php?t=41046

 

[bensonsearch]

Hi there VBA pros,


I would like to make some text i.e. "Welcome to the new system, please ensure you capture data correctly" to appear in a cell but flying from one side of the cell to the other side (right to left). text appearing from the cell boarder and disappearing at the left boarder. like messages on websites.

i tried using the following code:

sub fly_text
sheet1.range("a1").InsertIndent 1
end sub

but it is not working the way it should and its not the best way to do so.

sounds like fun, dont have time to play but try modifying the below

Dim count As Integer
Dim asd As String
ThisWorkbook.Sheets("Sheet1").Range("A1").Value = "A"
asd = Sheet1.Range("A1").Value
count = 1
Do Until count = 20
asd = asd + asd
Sheet1.Range("A1").Value = asd
count = count + 1
Loop
ThisWorkbook.Sheets("Sheet1").Range("A1").Value = "A"