ExcelBanter - View Single Post

Gaura215

Hi All

I have written a code, which is working fine till it reaches the following script. Is their anything wrong I am doing here. I can confirm that the range I have defined does contain "a". Or is their any easier or alternate way to do it using VBA. please help.

Code:

For Each cell In Range("D10:AX67")
        If cell.Value = "a" Then
        cell.Select
    With Selection.Font
        .Name = "Webdings"
        .Size = 11
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
        .ThemeFont = xlThemeFontNone
    End With
        
        End If
    Next cell