VBA kode der driller

her er koden

Sub Fronter()
'
' Fronter Makro
'

'
If Range("e7") = "spån" Then
    Range("g7") = "Ahorn"
    Range("c7") = 18
    End If
   
If Range("e7") = "Melamin" Then
    Range("g7") = "W1000"
    Range("c7") = 19
    End If
   
End Sub

Den er simpel og jeg har 2 lignende der virker fint. Eneste funktion er at ændre 2 felters værdi når den bliver kørt. Jeg har en anden makro der sætter gang i denne når det er nødvendigt baseret på selection.case change men det hjælper ikke når denne ikke vil virke, og der kommer ingen fejl op når jeg kører den manuelt. Håber i kan hjælpe:-)