ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー
以下は、頂いたアドバイスを参考に修正を加えたものです。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'(A1:E10)の範囲内で、クリックした単一のセルを着色
If Target.Count <= 1 And Target.row <= 10 And Target.Column <= 5 Then
Select Case Target.Interior.ColorIndex '複数選択したセルの色が
Case xlNone '無色の場合は
Target.Interior.ColorIndex = 3 '「3」赤色に着色
Case Else 'それ以外の色の場合は
Target.Interior.ColorIndex = xlNone '無色にする
Exit Sub
End If
'(A1:E10)の範囲内で、複数選択したセルを着色塗りつぶし無しにする
If Target.row <= 10 And Target.Column <= 5 Then
Select Case Target.Interior.ColorIndex '複数選択したセルの色が
Case xlNone '無色の場合は
Target.Interior.ColorIndex = 3 '「3」赤色に着色
Case Else 'それ以外の色の場合はxlNone
Target.Interior.ColorIndex = xlNoneExit '無色にする
Sub
End Select
End If
End Sub
頂いたアドバイスを参考に修正を加えました。
これこれで、目的通りの動きを実現できました。ご回答ありがとうございました。