Boa noite ely

Seja bem-vindo ao fórum.

Movi teu tópico para o local correto, pois o assunto é sobre VBA.

Para facilitar a tua participação, sugiro tomar conhecimento do conteúdo dos links abaixo:

viewtopic.php?f=7&t=203
viewtopic.php?f=7&t=7903
viewtopic.php?f=7&t=3841
viewtopic.php?f=7&t=16757
viewtopic.php?f=7&t=12600
viewtopic.php?f=7&t=3371

[]s

Patropi - Moderador

Bom dia, ely.

Seria algo +- assim:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    
    MsgBox "Célula selecionada é: " & Target.Address
    
    With Target
        .Font.Size = 14
    End With
    
End Sub

Procure por Target

Veja se esta ajuda :

Dim Oldcell As Range
Dim NewCell As Range

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    
    If Oldcell Is Nothing Then
        Set Oldcell = Target
       
        Oldcell.Interior.ColorIndex = 8
        Oldcell.Font.Size = 14
        
        Exit Sub
        
    Else
        
        Set NewCell = Target
        
        Oldcell.Interior.ColorIndex = xlNone
        Oldcell.Font.Size = 8
    
        NewCell.Interior.ColorIndex = 8
        NewCell.Font.Size = 14
    End If
    
    Set Oldcell = Target

End Sub

Altera o tamanho quando selecionamos, e apos selecionar outra tira a formatação da anterior e aplica na nova seleção.

[]s