Can this VBA code be adapted to start in cell A2

Question

I have some VBA code which highlights the cells in A if they contain a value.

Is there a way to adapt this to start in cell A2 as A1 is a header.

    Option Explicit

Sub LRow()

    Dim ws As Worksheet: Set ws = ThisWorkbook.Sheets("Sheet1")  '<=== Edit Sheet Name
    Dim LRow As Long

    LRow = ws.Range("A" & ws.Rows.Count).End(xlUp).Row

    ws.Range("A1:A" & LRow).Select

End Sub

Just in case you plan to use `.Select` please read [How to avoid using Select in Excel VBA](https://stackoverflow.com/questions/10714251/how-to-avoid-using-select-in-excel-vba) for a more reliable and much faster method. — Pᴇʜ, Nov 15 '18 at 09:29

score 2 · Answer 1 · answered Nov 15 '18 at 08:48

You only need to change the starting cell to A2: ws.Range("A2:A" & LRow).Select

In your code it looks like this:

Sub LRow()

    Dim ws As Worksheet: Set ws = ThisWorkbook.Sheets("Sheet1")  '<=== Edit Sheet Name
    Dim LRow As Long

    LRow = ws.Range("A" & ws.Rows.Count).End(xlUp).Row

    ws.Range("A2:A" & LRow).Select

End Sub

Can this VBA code be adapted to start in cell A2

1 Answers1