macro help

[bluefeather8989]

If C30 = 1 Then
Application.ScreenUpdating = False
Range("C30").Select
    Selection.ClearContents
    Range("A1").Select
ElseIf C30 = "" Then

    Range("C30").Select
    ActiveCell.FormulaR1C1 = "1"
    Range("A1").Select
Application.ScreenUpdating = True
End If

End Sub

it wont work the way i want it to work
if C30=1 then delete C30. if not then insert 1

 

[tweedle]

try:
If Range("C30") = 1 Then

Application.ScreenUpdating = False
If Range("C30") = 1 Then
    Range("C30").ClearContents
ElseIf Range("C30") = "" Then
    Range("C30") = 1
End If
Range("A1").Select
Application.ScreenUpdating = True

 

[bluefeather8989]

Range("A1").Select
If [C30] = 1 Then
Application.ScreenUpdating = False
    Range("C30").Select
        Selection.ClearContents
    Range("A1").Select
 Application.ScreenUpdating = True
ElseIf [C2] = "" Then
    Range("A1").Select
        Application.ScreenUpdating = False
            Range("C30").Select
        ActiveCell.FormulaR1C1 = "1"
   Range("A1").Select
Application.ScreenUpdating = True

End If
End Sub

NVM i figured it out myself.