Need correction in code, little correction..

[VBABEGINER]

Need correction in code, little correction..
Error - Object doesn't support this property or method..

With Worksheets("Sheet1")
    For i = 3 To RowCnt1
    If .HorizontalAlignment = xlLeft Then[COLOR=#ff0000]............Getting an error on this[/COLOR]
    .Cells(i, 6).Interior.Color = vbRed
    End If
    Next i
End With

 

[VBABEGINER]

giving me an error - "sub or function not defined"

For i = 3 To RowCnt1
If IsText(Cells(i, 6)) = True Then
Cells(i, 6).Interior.Color = vbRed
Else
End If
Next i

SOLVED..... THIS WHAT I EXACTLY WANT...THANKS JOE & ALL MEMBERS..

 

[Joe4]

You are welcome.

Note that you could avoid the whole For/Next loop and make it dynamic by applying the Conditional Formatting via VBA code (essentially, that is what you are kind of doing here, recreating Conditional Formatting, but not making it dynamic). That code would look like this:

    Dim rng As Range
    Set rng = Range("F3:F" & RowCnt1)
    rng.FormatConditions.Add Type:=xlExpression, Formula1:="=ISTEXT(F3)"
    rng.FormatConditions(rng.FormatConditions.Count).SetFirstPriority
    With rng.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 255
        .TintAndShade = 0
    End With

While the code may not look any shorter, it is actually much more efficient because it doesn't use loops (loops are notoriously slow and inefficient, and if there are better alternatives to use, it is usually advised to do so).