Invalid Procedure Call or Argument?

    If InStr(cell.Text, "x") > 0 Then
        strText = Trim(cell.Text)
        cell = Left(strText, n - 5) & ":" & Left(Right(strText, 4), 2) & " AM"
        cell.NumberFormat = "h:mm AM/PM"
        cell.Font.bold = True
    End If

Could someone help me debug this error?