Hello all, having troubles here and can't find an answer to help in the forum.

I have a code here that I want to cycle through all values in column E. If the value in column E is anything other than 'Volunteer & Internship' I want to clear the cell content. I have tried various codes, but here is the last. I keep getting a mismatch error for this one and don't know where the mismatch is. Maybe it is more than just that error too, not sure. This is what I have, anyone able to correct me?

Sub Ministry_Info_Organization()

Dim p As String

Do Until Range("A:A").Value = ""
    
    p = sht.Range("E:E").String
    If p <> "Volunteer & Internship" Then
        cell.ClearContents
    End If
    
Loop  

End Sub