run time error method value of object range failed

i'm having a macro runing depending on the value of the cell I1, every time the value in I1 changes, i want the correponded dependent cell values change, there is one case that i want to clear the contents of certain range but in this case the code happens to run into an infinite loop and i have no idea why here is my code, hope someone could help! thanks all in advance!

Private Sub Clear()

Dim target As Range
Set target = Range("I1")

If Not Intersect(target, Range("I1")) Is Nothing Then

    Select Case Range("I1").Value

        Case 1
        Application.ScreenUpdating = False
' ________bug starts the next line___________
            Range("H13,D27,H27").Value = ""
            ActiveSheet.Range("I13:I20").ClearContents
            Range("C4").Select
        Application.ScreenUpdating = True

        Case 2
            Range("H13,D27,H27").Value = "left"
            Range("I13,E27,I27").Value = "right"

        Case 3
            Range("H13,D27,H27").Value = "lateral"
            Range("I13,E27,I27").Value = "central"

     End Select
End If
End Sub

When exactly do you want this code to run?

The first code you posted would need to be run manually, and the second code you posted would run whenever the sheet calculated.

As for the run-time error, I can't replicate that.

Is the sheet protected?

Does this code, which belongs in a worksheet module, work?

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)

    If Not Intersect(Target, Range("I1")) Is Nothing Then
        Application.EnableEvents = False
        Select Case Range("I1").Value

            Case 1
                Application.ScreenUpdating = False
                Range("H13,D27,H27").Value = ""
                Range("I13:I20").ClearContents
                Range("C4").Select
            Case 2
                Range("H13,D27,H27").Value = "left"
                Range("I13,E27,I27").Value = "right"

            Case 3
                Range("H13,D27,H27").Value = "lateral"
                Range("I13,E27,I27").Value = "central"

        End Select
    End If
    
    Application.EnableEvents = True
    
End Sub

no it is not working at all..

no actually it worked with a new sheet i just created but not the previous one and i dont know why...

ok. the thing is that , cell I1 is actually a formula and its value changes by its formua, but if i change I1 manually, then your code works just perfectly

Any chance you could upload a sample workbook?

Click on GO ADVANCED and use the paperclip icon to open the upload window.