Hello,

I'm trying to execute the VBA code below but I get a run-time error 13 Type Mismatch with a highlight on If cell.Value <> "" Then.

I cannot manage to figure out what is missing or incorrect here. Would someone help or point me to the right direction to solve this please?

Thank you. 

Sub Update_Remit_Column()
Dim paidRng As Range
Dim salesWks As Worksheet
Dim cell

    'Set the range in column A you want to loop through
    Set salesWks = Sheets("Sales")
    Set paidRng = salesWks.Range("$AG$2:$AG$5000")
    
    Application.Calculation = xlCalculationManual
    Application.ScreenUpdating = False
    
    For Each cell In paidRng
        'test if cell is empty
        If cell.Value <> "" Then
            'write to adjacent cell
            cell.Offset(0, -11).Value = "Yes"
        End If
    Next
    
    Application.Calculation = xlCalculationAutomatic
    Application.ScreenUpdating = True
    
End Sub