User Input CF

[MR3]

Here is the code that I have so far. The conditional formatting arguments aren't being passed right. For example, if the user enters NAME_ the length of that string should be 5 characters and inserted appropriately into Formula1 below.

Sub ApplyCF()
Dim var1 As Integer
Dim var2 As String

var2 = InputBox("Enter a String", "Input")
var1 = Len(var2)
With Columns("C")
.Select '2007 & earlier
.FormatConditions.Delete
.FormatConditions.Add Type:=xlExpression, _
'Formula1:=:=LEFT(C1,5)=""NAME_"""
Formula1:="=LEFT(C1,var1)=""var2"""
.FormatConditions(1).Interior.ColorIndex = 35
MsgBox "Value added to total."

End With
End Sub

 

[mikerickson]

If the user enters "cat", what condition(s) should trigger the format?

 

[MR3]

"cat" would trigger the format so anything in that column that starts with "cat" would get highlighted green. but I wanted to add any cell in that column that does not contain the prefix thus user entered should be filled with a different color than the good green

 

[mikerickson]

I think that what you want is

.Forrmula1 = "=LEFT(C2," & var1 & ")=" & var2