run time error 424: object required

[countryfan_nt]

Hello friends, Hope all is well!

Stuck in the below code, I got run time error 424: object required. The following was highlighted:
If Target.Address = "$I$5" Then

Really and always appreciate your help in advance!

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Call CHANGE

End Sub

Sub CHANGE()

 Dim pt As PivotTable
 Dim Field As PivotField
 Dim NewCat As String
    
If Target.Address = "$I$5" Then
    
    If IsDateFormat(Target.NumberFormat) Then
        If Len(Target.Value) > 0 Then
            If IsDate(Target.Value) Then
                InitialDate = CDate(Target.Value)
            End If
        End If
        
        DT = ShowCalendar("Double Click on the selected date", InitialDate)
        
        If Not IsEmpty(DT) Then
            Target.Value = CDate(DT)
        End If
        
        Cancel = True
    End If
End If
 

If Target.Address = "$O$10" Then
'    If Intersect(Target, Me.Range("D11")) Is Nothing Then
            Call FIL1
    End If
End Sub

 

[JackDanIce]

You're not passing Target to the procedure CHANGE, try replacing with following:

Sub Change(ByRef Target As Range)

    Dim pt          As PivotTable
    Dim Field       As PivotField
    Dim InitialDate As Date
    
    Application.ScreenUpdating = False
    
    With Target
        Select Case .Address
            Case Is = "$I$5"
                If isdateformat(.NumberFormat) And Len(.Value) > 0 And IsDate(.Value) Then
                    InitialDate = CDate(.Value)
                    DT = showcalendar("Double Click on the selected date", InitialDate)
                    If Not istempty(DT) Then .Value = CDate(DT)
                End If
            
            Case Is = "$O$10"
                Call Fill
        End Select
    End With
        
    Application.ScreenUpdating = True
    
End Sub

 

[countryfan_nt]

thank you! but now I am getting: Compile Error: Argument Not Optional. Curious why? and how to fix that?

 

[JackDanIce]

You need to change the worksheet event call to:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Call Change(Target)

End Sub