■

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim KeyCells As Range
    Set KeyCells = Range("H:H") '変更を監視するセル範囲を指定

    If Not Application.Intersect(KeyCells, Range(Target.Address)) Is Nothing Then
        'H列のセルが変更されたときに実行
        If Target.Value = "○" Then
            Range("A" & Target.Row & ":L" & Target.Row).Interior.ColorIndex = 15 'グレーアウト
        Else
            Range("A" & Target.Row & ":L" & Target.Row).Interior.ColorIndex = xlNone 'グレーアウト解除
        End If
    End If
End Sub