vba - プライベート サブ プロシージャの呼び出しでコンパイラ エラーが発生しました

Question

    Private Sub Workbook_SheetSelectionChange _
     (ByVal Sh As Object, ByVal Target As Excel.Range)
     x = Sh.UsedRange.Rows.Count
End Sub

このようなプライベートサブプロシージャがあり、それを呼び出そうとしています

 Workbook_SheetSelectionChange _

サブの名前を変更しようとしましたが、サブの2行目のためにアンダースコアを削除できません。それがなぜなのか、どうすればこのサブを呼び出すことができるのだろうか?

Answer 1

は行_継続文字です

 Private Sub Workbook_SheetSelectionChange (ByVal Sh As Object, ByVal Target As Excel.Range)

と同じです

Private Sub Workbook_SheetSelectionChange _
 (ByVal Sh As Object, ByVal Target As Excel.Range)

これは（極端に）と同じです

Private _
Sub _
Workbook_SheetSelectionChange _
(ByVal _
Sh _
As _
Object, _
ByVal _
Target _
As _
Excel.Range)

Answer 2

簡単に試してください：

Workbook_SheetSelectionChange

または

Call Workbook_SheetSelectionChange

は_継続文字であり、サブルーチン名の一部ではありません。