Make this into a toggle command? [XL2003]
Dim Rw As Long
Rw = ActiveCell.Row
With Range(Cells(Rw, 1), Cells(Rw, 2)).Font
.Strikethrough = True
.Bold = True
.Color = RGB(0, 0, 0) ' change colour to black
End With
Gord Dibben MS Excel MVP
On Fri, 12 Nov 2010 08:59:01 -0800 (PST), StargateFan
wrote:
On Nov 12, 10:38 am, "Jim Cone" wrote:
Sub DoneAlready()
Dim Rw As Long
Rw = ActiveCell.Row
Range(Cells(Rw, 1), Cells(Rw, 2)).Font.Strikethrough = True
End Sub
This works great, thanks!
Well, you guys never need worry that I'll be so good I'll be able to
join your team!! <lol
I tried seeing if I could reuse this for other row functions but I get
an error so thought I'd run it by you all to see what in heck I'm
doing wrong this time.
Dim Rw As Long
Rw = ActiveCell.Row
Range(Cells(Rw, 1), Cells(Rw, 2)).Font
.Strikethrough = True
.Bold = True
' .Color = RGB(0, 0, 0) ' change colour to black
If I need to change any other attributes, how can I change the above
to accommodate any other font changes needed?
Thanks much!!! :oD
|