Só faltou incluir essa linha:

ComboBox1.Value = "Option A"

Assim:
Private Sub ComboBox1_Change()
Select Case Sheet1.ComboBox1.Value
Case "Option A"
Range("A5").Value = 10
Case "Option B"
MsgBox "You can't choose this yet!"
ComboBox1.Value = "Option A"
End Select
End Sub

Regras do forum:

• Upload
Devido a ultrapassagem da marca de 1,5Gb de armazenamento de arquivos na hospedagem do Planilhando, limitaremos o tamanho de cada arquivo para 2Mb sendo obrigatório o uso dos formatos .zip - .rar - .ice visto a gratuidade e não geração de recursos para bancar o site.

Por favor leia as regras (link na minha assinatura), e passe a compactar todos os seus anexos.

Obrigado,

Fernando

Eu estava tentando antes colocando Set ComboBox1.Value = "Option A" hahaha

Muito obrigado Gilmar!

E Fernando, desculpe, passarei a compactar os arquivos daqui pra frente! Obrigado.