Hent forskellige makroer

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$A$1" Then    '$A$1 erstattes!
        If Target = "Antal varer" Then
            valgtBeregningsGrundlagVarer
        Else
            valgtBeregningsGrundlagSalgslinje
        End If
    End If
End Sub
Private Sub valgtBeregningsGrundlagVarer()
    '.....
End Sub
Private Sub valgtBeregningsGrundlagSalgslinje()
    '.....
End Sub

Perfekt - tak for hjælpen :-)
Lægger du et svar....

Fint - selv tak & svar..