Row Column Cross Hair

H

h2fcell

What version did Excel start highlighting the column letter and row number of
the active cell? Is there a way to extend that highlighting into the sheet
to the active cell?
 
H

h2fcell

I wrote the below code that gives me a moving highlighted row through a range.
The below code works when is copied to the "ThisWorkbook" Object and the
file is saved an reopened.
It works for me.

Private WithEvents App As Application

Private Sub App_SheetSelectionChange(ByVal Sh As Object, ByVal Target As
Range)

With Range("A1:S100").Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With

Ar = ActiveCell.Row
With Range(Cells(Ar, "a"), Cells(Ar, "s")).Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent3
.TintAndShade = 0.799981688894314
.PatternTintAndShade = 0
End With

End Sub

Private Sub Workbook_Open()
Set App = Application
End Sub
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top