G
Gaura215
Hi All
I have written a code, which is working fine till it reaches th
following script. Is their anything wrong I am doing here. I can confir
that the range I have defined does contain "a". Or is their any easie
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 cel
I have written a code, which is working fine till it reaches th
following script. Is their anything wrong I am doing here. I can confir
that the range I have defined does contain "a". Or is their any easie
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 cel