Hallo Hans,
die Wartezeit geschieht an der Stelle, an der die ".Wait-Funktion" eingearbeitet wurde, also bei Deinem Makro in der Mitte und nicht am Anfang des Makros. Baue Dir mal 2 MessageBoxen ein, dann kannst Du das zum Prüfen kontrollieren. Das Makro zum Testen müsste dann wie folgt aussehen mit den MessageBoxen:
Sub neu()
ActiveSheet.Shapes("Rectangle 2").IncrementLeft 111.75
MsgBox "vor Wait"
Application.Wait Time + TimeSerial(0, 0, 5)
ActiveSheet.Shapes("Rectangle 2").IncrementLeft 111.75
MsgBox "hinter Wait"
End SubMfG,
Oliver
[sub]Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du[/sub]
[sup] ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.[/sup]