Hi,

Can anyone point out why I am getting an error with this code:

Private Sub Worksheet_Change(ByVal Target As Range)
    

If Range("F30").Value = "AS ABOVE" Then
    Range("F21").Value = "0mm"
    Range("F25").Value = "0mm"
    Range("F28").Value = "0mm"
    
Else
    Range("F21").Value = None
    Range("F25").Value = None
    Range("F28").Value = None
    
End If
    
If Range("H30").Value = "AS ABOVE" Then
    Range("H25").Value = "0mm"
    
Else
    Range("H25").Value = None
End If
    
If Range("J30").Value = "AS ABOVE" Then
    Range("J21").Value = "0mm"
    Range("J23").Value = "0mm"
    Range("J26").Value = "0mm"
    Range("J29").Value = "0mm"

Else
    Range("J21").Value = None
    Range("J23").Value = None
    Range("J26").Value = None
    Range("J29").Value = None
    
End If
      
End Sub
F30,H30 and J30 are drop down menus.

Thanks