macro ausführen in mehreren sheets gleichzeitig

Private Sub CommandButton1_Click()
Dim Start, Start2
Dim Zeile As Long
Dim Anfang As Integer, Ende As Integer
Zeile = 3 'erste zu kopierende Zeile
Anfang = 1 '1=Spalte A
Ende = 43  '43=Spalte AQ
Start2 = Timer
Do '10 Minuten lang ausführen
Start = Timer
Do '1 Minute warten
DoEvents
Loop Until Timer - Start >= 60
Range(Cells(Zeile, Anfang), Cells(Zeile, Ende)).Cut Destination:=Range(Cells(Zeile + 1, Anfang), Cells(Zeile + 1, Ende))
Range(Cells(Zeile + 1, Anfang), Cells(Zeile + 1, Ende)).Copy
Range(Cells(Zeile, Anfang), Cells(Zeile, Ende)).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False 'Copy Markierung- aufheben
Zeile = Zeile + 1 '1 Zeile weiter
DoEvents
Loop Until Timer - Start2 >= 600
End Sub