Excel VBA カーソルを当てた際に表示される”4161”とは

以下についてご教示いただけないでしょうか。
VBAを学んでおります。
以下のソースコードをF8で実行し、カーソルを当てて値を見ていたのですが、
xlToRightにカーソルを当てると”4161”という値が表示されます。
これは何を意味しているのでしょうか？

Sub test6()
Dim a As Range
　Set a = Range("a:a").Find(what:="佐々木")
　If a Is Nothing Then
　MsgBox "見つかりません"
　Else
　Range(a, a.End(xlToRight)).Copy Range("E2")
　End If
End Sub

質問者からの補足コメント

• 先ほどご指摘いただき、以下修正させていただきます。
  
  誤　4161　　が表示される
  正　-4161 　 が表示される

    補足日時：2022/04/30 22:08

No.1 ベストアンサー 回答者： mygoonickname 回答日時： 2022/04/30 22:03

こんばんは。

-4161ですかね。
xlToRightと定義されていますが、内部では-4161になっている様です。
試しに、下記を実行されると、-4161が表示されるかと。

sub test()
Msgbox xlToRight
End sub

a.End(xlToRight)は、a.End(-4161)　でも同じ結果になりますね。
但し、数字だと解り難いので、xlToRightという定数を割り当てているかと。

https://www.moug.net/tech/exvba/0050088.html

この回答へのお礼

こんばんは。ご回答ありがとうございました。はい、ご指摘の通り-4161でした。。
調べればわかることを質問してしまったようで、申し訳ございません。
ご教示いただきどうもありがとうございました。

お礼日時：2022/04/30 22:10