excel - 別紙マクロのボタン

Question

Sheet3 にボタンがありますが、Sheet1 から次のマクロを実行したいです。次の文字列を実行すると、引き続きエラーが発生します。

Public Sub Blue()

    If Now() > Range("Sheet1!AL2") Then
        Range("Sheet1!AC2:AG2").Select
        Selection.Cut
        Range("Sheet1!AC15").Select
        Sheet1!.Paste
        Range("Sheet1!X2:AB2").Select
        Selection.Cut
        Range("Sheet1!AC2").Select
        Sheet1!.Paste
        Range("Sheet1!AC15:AG15").Select
        Selection.Cut
        Range("Sheet1!X2").Select
        Sheet1!.Paste
        Range("Sheet1!AL2").Select
        Selection.Copy
        Range("Sheet1!AK2").Select
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Else
    End If

End Sub