すいません。
初めて利用させていただきます。よろしくお願いします。
ご教授願います。
質問内容としては、
今日の日付を基準として特定のセルの日付（シリアル値が入力されているセル）が何週目
（未来に何週目、過去に遡って何週目も含め）になるのかを知りたいです。
例えば
１
特定のセルの日付は、2022/4/18である場合、今日の日付が2022/4/16であれば
特定のセルの日は１週間後（来週）と判断
２
特定のセルの日付が、2022/4/4である場合、今日の日付が2022/4/16であれば
特定のセルの日は１週間前（先週）と判断
３
特定のセルの日付が、2022/5/4である場合、今日の日付が2022/4/16であれば
特定のセルの日は３週間後と判断
４
特定のセルの日付が、2022/3/19である場合、今日の日付が2022/4/16であれば
特定のセルの日は４週間前と判断
と例を記載しました。
カレンダーを見て、来週、先週や今日から何週間目なのかを自動で判断できるよう
したいと思っています。
どのように求めればよいかご教授を願います。

ネットで調べながら下記のように作成してみましたが、うまく結果がでませんでした。
下記のコードでは、今日の日付と特定の日の期間を求め、単純に７で割るというものです。
これだと、土曜日から計算して３日後が来週になるものと、月曜日から計算して３日後が
今週である、等の同じ３日でも、違い結果になる、このような判断ができないのです。
また、計算した結果の商の値が-（マイナス）になる場合、どのように計算すればよいか
わかりません。

表の形式は、週間行事シートという名称のシートを利用して、そのシートの
Ａ列のＡ３から日付が１週間＋１日分入力（シリアル値）されています。
今日の日から見てＡ３の日は何週目なのかを知りたいという感じのものです。

分かりづらい質問ですいません、どなたかご教授願います。

Sub 日付間隔計算()

    Dim MyInterval As Long
    Dim MyYear, MyMonth, MyDay As Date
    Dim MyDivideBy7 As Long
    Dim SelectWeek As Variant

    '週間行事シートのＡ３セルの年、月、日を取得
    MyYear = Year(Range("a3"))
    MyMonth = Month(Range("a3"))
    MyDay = Day(Range("a3"))


    '指定した日付けの文字列を日に変換
    SelectWeek = DateSerial(MyYear, MyMonth, MyDay)

    '今日の日付けと取得した日付けとの間隔を計算
    MyInterval = DateDiff("d", SelectWeek, Date)
    
    '期間を７で割った商を求める
    MyDivideBy7 = MyInterval \ 7
        
    
    Select Case Int(MyDivideBy7)
        Case o
             MsgBox "今週です"
    End Select

End Sub

＞    '週間行事シートのＡ３セルの年、月、日を取得
＞    MyYear = Year(Range("a3"))
＞    MyMonth = Month(Range("a3"))
＞    MyDay = Day(Range("a3"))

そこ、何の為に分解しているんですか？
A3の日付って、文字列データとかなのですか？

・・だとしても、単にでもよさそうに思いますけど。
　　　　　　　　　↓
 SelectWeek = DateValue(Range("A3"))


この記事にはVBAのコードが含まれています。

緑の太文字→注釈
茶色の太文字→条件分岐
赤の太文字→ループ
青の太文字→その他

＞    '週間行事シートのＡ３セルの年、月、日を取得
＞    MyYear = Year(Range("a3"))
＞    MyMonth = Month(Range("a3"))
＞    MyDay = Day(Range("a3"))

そこ、何の為に分解しているんですか？
A3の日付って、文字列データとかなのですか？

・・だとしても、単にでもよさそうに思いますけど。
　　　　　　　　　↓
 SelectWeek = DateValue(Range("A3"))

ありがとうございます。
マクロの知識がないためネットに見つけたコードを変更して使っています。
DateSerial
を使うためには、引数に各、年、月、日のデータ必要だと思い、分解し使ったものです。
Ａ３セルはシリアル値のデータ入っています。

SelectWeek = DateValue(Range("A3"))
で可能であればこちらのほうが簡単なのでこちらを利用します。

＞Ａ３セルはシリアル値のデータ入っています。
なら、変換は全く必要ありません。(DateValue関数も噛ます必要がないです)

Sub 日付間隔計算()
    Dim SelectWeek As Date
    Dim myLastSat As Date
    Dim lastSat As Date
    Dim MyInterval As Long
    Dim MyDivideBy7 As Long
    
    '特別日の先週土曜日を算出する
    SelectWeek = Range("A3").Value
    myLastSat = SelectWeek - Weekday(SelectWeek)
    
    '今日の先週土曜日を算出する
    lastSat = Date - Weekday(Date)
    
    '上記土曜日同士の差を計算
    MyInterval = myLastSat - lastSat
    
    '期間を７で割った商を求める
    MyDivideBy7 = MyInterval \ 7
    
    Select Case MyDivideBy7
        Case Is < 0
            MsgBox Abs(MyDivideBy7) & "週間前です"
        Case 0
            MsgBox "今週です"
            
        Case Is > 0
            MsgBox MyDivideBy7 & "週間後です"
    End Select
End Sub


この記事にはVBAのコードが含まれています。

緑の太文字→注釈
茶色の太文字→条件分岐
赤の太文字→ループ
青の太文字→その他