Gostaria de transformar o seguinte código para que funcione por aba e não na planilha inteira, pois para cada aba preciso editar as colunas onde se aplica o código.

Esse código pinta a célula quando clicada uma vez e, quando clicada novamente, a deixa sem preenchimento.

Obrigada!

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

   With Target.Interior
    
   If Target.Column > 37 Or Target.Column < 8 Then
   Exit Sub
   Else
    If .ColorIndex = xlColorIndexNone Then
        .ColorIndex = xlColorIndexAutomatic
        .Color = vbRed ' ou qualquer outra cor
    Else
        .ColorIndex = xlColorIndexNone
    End If
    End If
    End With
End Sub