Dear members of the forum,

I want to swap some cells after a specific amount of time (every week on sunday)
I wrote a code, but its missing the repeating period.
Can somebody help me?

Here is the code:

Sub SwapTwoRange()
'Updateby20230406

Dim Rng1 As Range, Rng2 As Range

Dim arr1 As Variant, arr2 As Variant

xTitleId = "SwapColums"

Set Rng1 = Application.Selection

Set Rng1 = Application.InputBox("Range1:", xTitleId, Rng1.Address, Type:=8)

Set Rng2 = Application.InputBox("Range2:", xTitleId, Type:=8)

Application.ScreenUpdating = False

arr1 = Rng1.Value

arr2 = Rng2.Value

Rng1.Value = arr2

Rng2.Value = arr1

Application.ScreenUpdating = True

End Sub

Thank you in advance and best regards,

David