Não necessitamos utilizar os Select(s), temos algumas formas de se fazer dependendo de como irá executar, duas delas seriam :

Se for executar a partir da "Plan1", utilize :

Public Sub Valor()
    
    Sheets("Plan2").Range("D9").Value = Range("D9").Value + 1

End Sub

Se for executar a partir de qualquer outra aba, utilize :

Public Sub Valor()
    
    Sheets("Plan2").Range("D9").Value = Sheets("Plan1").Range("D9").Value + 1

End Sub

[]s

Ainda não foi, preciso que quando eu estiver na aba 1 aperte o botao e na aba 2 some mais um.

Da forma que solicitou e de acordo com a rotina que postou, entende-se que o Valor em D9 na Plan2 é igual ao Valor em D9 da Plan1 somado + 1.

Se não é isto, detalhe melhor "quando eu estiver na aba 1 aperte o botao e na aba 2 some mais um" - Somar mais 1 com qual Valor ? Apesar que a instrução básica e a que indiquei.

[]z

Desculpe se nao fui muito claro na minha explicação. É uma planilha de analise de jogo, por exemplo, quando um jogador erra um passe eu clico no botao na aba "plan1" e automaticamente é somado +1 na aba "plan2". Assim a cada passe errado soma-se +1 na plan2.

Vou por suposição, entendendo que irá lançar SEMPRE em "D9 na Plan2" somando-se + 1 com o Valor que já tem em D9".

Se for isto, use esta :

Public Sub Valor()
   Dim sValPlan2D9
   
    'Captura o Valor armazenado na Plan2 em D9
    sValPlan2D9 = Sheets("Plan2").Range("D9").Value
   
    'Lança o Valor em D9 na Plan2 somando + 1 com o Valor que tinha na Celula
    Sheets("Plan2").Range("D9").Value = sValPlan2D9 + 1

End Sub

[]s