VBA Excelのセル上に罫線があるかどうかと丸数字（①）を振る方法

訳あって、セルに罫線が引かれているかどうかの判定をどうするかわからず。
某質問サイトさまでわかりました。ありがとうございます。
罫線が引かれているセルの個数を調べるには

Sub 罫線がセルの上に引かれているか()
    If Range("A1").Borders(xlEdgeTop).LineStyle <> xlNone Then  MsgBox "〇"
End Sub

あと、丸数字を振る方法というのをさんざ探しても見つからず…需要がないのでしょうか？？と思ったら、「VBAメモ：1を①に変換」という記事にありました。ありがとうございます。（リンクが切れていたので、記事名のみです。すみません。）

以下、抜粋させていただきました。

Sub 数値を丸数値に変換()

    Dim i As Long
    For i = 1 To 10
      Debug.Print Chr(Asc("①") + i - 1)
     'セルに記入なら以下に。
     'Cells(i, "A") = Chr(Asc("①") + i - 1)
    Next i

End Sub

で、１から10まで丸文字がでるということです。

記事は以上になります。最後までご覧頂き、ありがとうございます。