Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Range("E:E"), Target) Is Nothing Then
Select Case Target.Value
Case "DL": Call tvojemakro1
Case "DH": Call tvojemakro2
Case "DX": Call tvojemakro3
Case "ST": Call tvojemakro4
End Select
End If
End Subcitovat