EXCEL VBA 選択セルのデータを強制的に文字列化する（'を付ける）

XLOOKUPやVLOOKUPを利用するときに、文字列と数値が混在して、上手く情報を取り出せない事はありませんか？
このマクロは、セルを選択した後「nsub選択セルのデータを強制的に文字列化する」を実行すると
すべて文字列にします。

'
'　選択セルのデータを強制的に文字列化する（'を付ける）
'https://pgbigoroku.hatenablog.com/entry/2022/08/30/235553
'2022/8/30
Public Sub nsub選択セルのデータを強制的に文字列化する()
    Call nisubセルのデータを強制的に文字列化する(Selection)
End Sub

'
'　セルのデータを強制的に文字列化する（'を付ける）
'https://pgbigoroku.hatenablog.com/entry/2022/08/30/235553
'2022/8/30
Public Sub nisubセルのデータを強制的に文字列化する(ByRef rng対象セル As Range)
    Dim varCell As Variant
    For Each varCell In rng対象セル.Cells
        If Left(varCell.Value, 1) = "'" Then
            '何も処理をしない
        Else
            varCell.Value = "'" & varCell.Value
        End If
    Next
End Sub