RTE 13 Type Mismatch message

[ipbr21054]

Hi,

Im not sure why i get the RTE 13
The issue when i debug is shown in Red below.
Can you advise so i can investigate.

Private Sub SUMMARYTRANSFER()
    Dim rFndCell As Range
    Dim strData As String
    Dim stFnd As String
    Dim fRow As Long
    Dim sh As Worksheet
    Dim ws As Worksheet
    Dim strDate As String

    Set ws = Sheets("G INCOME")
    Set sh = Sheets("G SUMMARY")
    stFnd = ws.Range("A3").Value
    strDate = ws.Range("A5").Value
    With sh
    If Range("A3").Value = "APRIL" Then
        APRILFORM.Show
    Else
        Set rFndCell = .Range("C6:C16").Find(stFnd, LookIn:=xlValues)
        If Not rFndCell Is Nothing Then
            fRow = rFndCell.Row
            If CDate(strDate) > CDate("05/04/2021") Then
                sh.Cells(fRow, 4).Resize(, 1).Value = ws.Range("D31").Value
                sh.Cells(fRow, 5).Resize(, 1).Value = ws.Range("E31").Value
            Else:

            End If
            MsgBox "TRANSFER TO SUMMARY SHEET ALSO COMPLETED", vbInformation + vbOKOnly, "SUMMARY TO TRANSFER SHEET COMPLETED MESSAGE"
        Else
            MsgBox "DOES NOT EXIST", vbCritical + vbOKOnly, "SUMMARY TO TRANSFER SHEET FAILED MESSAGE"
            Range("A5").Select
        End If
        Range("A3:B3").ClearContents
        Range("E3").ClearContents
        Range("C3").ClearContents
        Range("A5:B30").ClearContents
        Range("A5:A30").NumberFormat = "@"
        Range("A5").Select
        ActiveWorkbook.Save
        
    End If
    End With
    
End Sub

 

[rollis13]

The only reason I can think of is that your cell A5 in sheet G INCOME is text or empty. Here is where you valorize the variable strDate: strDate = ws.Range("A5").Value.
Do your debugging, stop the macro at this line If CDate(strDate) > CDate("05/04/2021") Then then hover the mouse over the variable (or use the Immediate window and type ?strDate and press Enter) and if you don't see a date the macro will give you a RTE #13.