選択セルや選択範囲を比較して値が一致しているかを判定するマクロを作成したいです

Question

前提・実現したいこと

マクロはなんとなく読める程度で、自分で作成したことはない超初心者です。

エクセル上の任意のセルAとセルBの文字列（文字or数値）が一致しているかどうか
をチェックするためのマクロを作成したいです。

具体的な操作としては、以下をイメージしています。
１．セルAを任意のショートカットキーで指定
２．上記で指定したセルの文字列とセルBを任意のショートカットキーをトリガーにして比較実行
３．一致、不一致のメッセージボックスを表示

ショートカットキーを使ってのコピー＆ペーストをするような使用感で文字列比較をしたいです。

発生している問題・エラーメッセージ

１と２で別のショートカットキーを設定したいので別のマクロを書く必要があるのかと思ったのですが
１で取得した値を２に受け渡す方法がわかりません。

該当のソースコード

Sub Macro2()
'選択範囲の値を取得
  Dim s As Variant
   s = Selection.Value
   Debug.Print (s)
   
End Sub

Sub Macro22()
'選択範囲の値を取得
  Dim s As Variant
   ss = Selection.Copy
   Debug.Print (ss)
End Sub

Sub macro3()
'取得した値と選択範囲の値が一致しているか判定
  Call Macro2
  If s = ActiveCell.Value Then
    MsgBox "一致"
   Else
    MsgBox "不一致"
  End If

試したこと

上記Macro2かMacro22で情報を取得できるかと思ったのですが、
うまくいきませんでした。

補足情報（FW/ツールのバージョンなど）

ここにより詳細な情報を記載してください。

Answer 1

以下の参考より「変数をモジュールの宣言セクションで宣言します。」
今回の場合は、セルAとセルBの値を格納する変数を２つそれぞれ宣言します。

Dim aCell As String
Dim bCell As String

Sub Macro2()
    aCell = "A"
End Sub

Sub Macro22()
    bCell = "B"
End Sub

Sub Macro3()
    If aCell = bCell Then
        MsgBox "一致"
    Else
        MsgBox "不一致"
    End If
End Sub

参考：
変数の適用範囲
マクロにショートカットキーを設定する

Comments

[prprprn]

ご教示いただいた方法を参考に解決できました！
ありがとうございます。

基本を理解しないまま取り組み始めたため、初歩的な質問で失礼いたしました。
大変助かりました！