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