VBA Code Type Mismatch

[howard]

I have tried to write code to insert "NO" in col I where "Emailed" does not appear or Col I contains a blank row

For eg if I2 contains "Emailed" , "Emailed" must remains, If I3 is blank , then "NO" to be inserted


I get a type mismatch when running my code

 If Range("I2:I" & LR).Value <> "emailed" Or Range("I2:I" & LR).Value = "" Then

 Sub formula_Email_Sent()
Dim LR As Long
Sheets("Renewals").Select

LR = Range("A" & Rows.Count).End(xlUp).Row
If Range("I2:I" & LR).Value <> "emailed" Or Range("I2:I" & LR).Value = "" Then
Range("I2:I" & LR).Value = "Emailed"

End If
End Sub

It would be appreciated if someone could amend my code

 

[Fluff]

How about

Sub howard()
   Dim LR As Long
   Sheets("Renewals").Select

   LR = Range("A" & Rows.Count).End(xlUp).Row
   With Range("I2:I" & LR)
      .Value = Evaluate(Replace("if(@=""Emailed"",@,""NO"")", "@", .Address))
   End With
End Sub

 

[howard]

Thanks Fluff-Code works perfectly

 

[Fluff]

You're welcome & thanks for the feedback