Olá,

Alguém pode me ajudar com o código abaixo, quando eu o executo ele trava a planilha, lembrando que eu tentei varias variações dele e esta foi uma das unicas que quase funcionou.

Private Sub Worksheet_Change(ByVal Target As Range)
  
  
  
  If Range("I5") <> "" Then
    S = Range("I5").Value
  End If
  
 
    If Range("I5") <> "" Then
     Range("g13").Value = "='" & Range("I5").Value & "'!C5"
    End If
    

    Range("G13").Select
    Selection.AutoFill Destination:=Range("G13:AK13"), Type:=xlFillDefault
    Range("G13:AK13").Select
    Selection.AutoFill Destination:=Range("G13:AK20"), Type:=xlFillDefault
    Range("G13:AK20").Select
    Range("M23:S24").Select
    


End Sub

Obrigado pela força.