VBAでセルの先頭に文字列挿入

#はじめに
初めまして。駆け出しエンジニアです。
備忘録も兼ねて投稿していきます。
今回はVBAの簡単なコードを書いたので載せていきます。

#コードの内容
Excelのシート内のデータで日付、数値になっているセルの先頭にクォーテーション(')を入れるVBAです。
セルのデータを文字列として認識させたいときに便利です。

#ソースコード

'変数宣言
Dim head As String
Dim target As Range


'エスケープを入れるレンジの指定
Selection.SpecialCells(xlCellTypeConstants, 1).Select
head = "'"

'数値もしくは日付の場合エスケープする
For Each target In Selection
    If IsDate(target) Or IsNumeric(target) Then
        target.Value = head & target.Value
    End If
Next