On Nov 12, 12:17 pm, Gord Dibben wrote:
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

Marvellous! Thank you. I added the colour option back in after all
and searched for RGB values. I added red to one and black to the
other. Works great. Now I also can't accidentally toggle something
OFF when it shouldn't be. I might toggle it ON by mistkae but then
can manually take strikethrough off if I realized I slip-clicked.
Best of both worlds - I have speed in striking through yet can back
out if I pressed the button in error.

Cheers!

:oD