VBA - Clear content cell with font name

[ozstrik3r69]

Dears good morning

I am trying to find a way to delete content of cells where the font name used is "Calibri.
I tried different ways but unfortunately untill nopw, nothing worked.

May I kindly ask you, if someone can help me ?

Columns I need to check are "C" and "D"
I tried the following code but it did not work.

        lastRow = Cells(Rows.Count, 1).End(xlUp).Row
For i = 1 To lastRow
    If Cell.Font.Name = "Calibri" Then
            Cell.ClearContents
    End If
Next i

I do not know if I was on the good "path".
If someone can help me I will be gratefull

Waiting for feedback
Regards

[jindon]

Perhaps

    If Cells(i, 1).Font.Name = "Calibri" Then
            Cells(i,1).ClearContents
    End If

[bakerman2]

For column c.

For i = 1 To lastRow
    If Cells(i, 3).Font.Name = "Calibri" Then
        Cells(i, 3).ClearContents
    End If
Next i

[ozstrik3r69]

For column c.

For i = 1 To lastRow
    If Cells(i, 3).Font.Name = "Calibri" Then
        Cells(i, 3).ClearContents
    End If
Next i

Yes yes yes !!!

It works

Thank you guys for your help Bakerman2 & jindon