Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Excel.Range)
' 処理
End Sub
サンプル
選択範囲のシート名とアドレスをステータス バーに表示
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Excel.Range)
Application.StatusBar = Sh.Name & ":" & Target.Address
End Sub
選択したセルの背景色と文字色をランダムに変更
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Dim lngType As Long: lngType = Sh.Type
Dim i As Long
' 現在ワークシートを選択している場合は処理します
If lngType = xlWorksheet Then
' 選択したセルの背景色と文字色をランダムに変更します
Target.Interior.ColorIndex = Int(Rnd * 57)
Target.Font.ColorIndex = Int(Rnd * 57)
End If
End Sub