Zdravím,

V excelu 07 jsme si vytvořil proceduru, jejíž f-kcí je při kliknutí do určité buňky zobrazit data atd.
Problém nastal při přidání dalších části, což mělo za následek chybové hlášení- Compile Error:procedure too large

Jelikož jsem použil až příliš if, elseif, tak se ani nedivím. Jak zjednodušit daný code, aby nebyl tak dlouhý viz. část codu ?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Target.Address = "$B$2" Then 
    Range("S3").Value = Sheets("Vypocty").Range("K5").Value
    Range("T3").Value = Sheets("Vypocty").Range("L5")
    Sheets("Vyp2").Range("G2").Value = Sheets("Vypocty").Range("J5")
    Sheets("Vyp2").Range("H2").Value = "NEPRAVDA"
    Call AP
    Call ACs
      
     ElseIf Target.Address = "$C$3" Then 
     Range("S3").Value = Sheets("Vypocty").Range("K6").Value
     Range("T3").Value = Sheets("Vypocty").Range("L6")
     Sheets("Vyp2").Range("G2").Value = Sheets("Vypocty").Range("J6")
     Sheets("Vyp2").Range("H2").Value = "NEPRAVDA"
     Call KP
     Call KPs

     .
     .
     .

 End If
End Sub