Help with highlighting rows in a table

[Webz2k]

Hi,

I am using the below code to highlight a selected row in a table by referencing the number in cell A11 and conditional formatting the table.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Not Intersect(Target, Range("B8:L19")) Is Nothing Then
Range("A11").Value = Target.row
End If

End Sub

What i am wanting to do however is make the end of the table dynamic as the table will grow over time so new rows need to also highlight when selected.

Does anyone have an idea how to best do that please?

Thanks for any help given

[TMS]

One way:

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Not Intersect(Target, Range("B8:L" & Rows.Count)) Is Nothing Then
Range("A11").Value = Target.Row
End If

End Sub

Please note:

Your post does not comply with Rule 2 of our Forum RULES. Use code tags around code.

Posting code between [CODE] [/CODE] tags makes your code much easier to read and copy for testing, it also maintains VBA formatting.

Click on Edit to open your thread, then highlight your code and click the # icon at the top of your post window. More information about these and other tags can be found here