Opgelost VBA en VO werkt niet

[Senso]

In document a werkt het en in b niet

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With ThisWorkbook.Names("HighlightRow")
.Name = "HighlightRow"
.RefersToR1C1 = "=" & ActiveCell.Row
End With
End Sub

VO
=RIJ(A1)=HighlightRow

foutmelding door vetgedrukte regel

 

[AHulpje]

Dan is in werkboek b de naam HighlightRow niet aanwezig. Geef een willekeurige cel de naam HighlightRow.
Of doe het zo:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Target.Name = "HighlightRow"
    ThisWorkbook.Names("HighlightRow").RefersToR1C1 = "=" & ActiveCell.Row
End Sub

 

[Senso]

Bedankt, is gelukt.

 

[HSV]

Geen idee waarom sommige mensen bij "Byval Target As Range" overschakelen naar 'ActiveCell'

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 names.add "HighligthRow", target.row
end sub