Why isn't this code to change the font colour working?
On Oct 18, 7:34*am, travis wrote:
The following snippet of code is supposed to change the value in the
8th column row the row MatchLineNum to "Yes" and then change the first
22 columns of that row to black font.
With Sheets("Macquarie Commissions")
.Cells(MatchLineNum, 8).Value = "Yes"
.Cells(MatchLineNum, 22).Font.ThemeColor = xlThemeColorLight1
End With
Ugh! I made a dumb noob error! :(
If you look at my description of what I wanted it to do (change the
first 22 columns in the row to black font) and what I actually codes
(change the 22nd cell only), its obvious why it wasn't working!
This worked though:
With Sheets("Macquarie Commissions")
.Cells(MatchLineNum, 8).Value = "Yes"
.Rows(MatchLineNum).Font.ThemeColor = xlThemeColorLight1
End With
Sorry!
Travis
|