geht nicht .....?

leute was muss wo einfügen .....was sist standartmodul

bitte kein antwort ,,,,,funktionier usw

ich weiss nciht wie das wo einfügen soll???

sollte einfach der code:
StandardModule: basMain

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

Sub Rotieren()
Dim rng As Range
Dim iCounter As Integer
Application.EnableCancelKey = xlErrorHandler
Set rng = Range("E10")
On Error GoTo ERRORHANDLER
For iCounter = 1 To 10000
rng.Value = Right(rng.Value, Len(rng.Value) - 1) + _
Left(rng.Value, 1)
Sleep 100
Next iCounter
ERRORHANDLER:
End Sub

eingefügt werden

dann kommt aber fehlermeldung:ausserhalb einer prozedur ungültig?

was kapiere mal wieder nicht ?

satandart modul ? StandardModule: basMain...........?

ist sicher wieder mal anfängerproblem

trotzdem danke für hinweis wie das zum laufen bekomme

roland