Por que essa macro não está funcionando corretamente no Excel 2010?

Question

Bem, estou curioso para saber porque esta macro não está funcionando.

A macro deve funcionar assim. Eu tenho uma célula com fundo preto e texto preto. O que é suposto acontecer é que o fundo dessa célula deve ficar branco quando a macro for clicada.

Quando gravo essa macro, o que acontece é que, quando clico nessa macro, qualquer célula destacada obtém o plano de fundo branco, em vez dessa célula específica.

Tenho cerca de 25 células para que isso aconteça, mas quero que elas tenham sua própria macro individual. Então, sempre que, no código de macro, ele precisa mencionar o nome da célula, simplesmente coloque algo como 'C / L' (local da célula) ou o que for, apenas para me dizer.

Toda ajuda é apreciada. :)

Aqui está o código de macro com falha que estou usando:

Sub CaseOpen1()
'
' CaseOpen1 Macro
'

'
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorDark1
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
End Sub

Mais uma vez, tudo ajuda apreciado. :)

    

Answer 1

O "Com Seleção" no seu código faz com que ele opere na célula destacada (selecionada). O que você precisa fazer é declarar em qual célula você deseja que a macro opere.

Sub CaseOpen1()
'
' CaseOpen1 Macro
'
    Dim rng As Range                   '// declare 'rng' as variable of type Range
    Set rng = ActiveSheet.Range("A1")  '// assign the cell to be acted on to 'rng'
    With rng.Interior                  '// change color of 'rng' rather than Selection
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorDark1
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
End Sub