Row, Col value off by one row

[scottintexas]

I don't know what has happened here. The value I am getting from the target row col is off by one row even though the row count is correct.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
Dim strContNam As String
Dim intClassNum As Integer
Dim intLastRow As Integer
Dim aryClasses As Variant
Dim intCount As Integer

'First find out if this is an addition, or a read.
If frmEntry.lblField.Caption = "Writing" Then Exit Sub

'Get the last row
intLastRow = FindLastRow

'Check which row was selected.  It must be greater than 1 and less than last row
    If Target.Row > 1 And Target.Row < intLastRow Then
        With frmEntry
            .txtNumber.Value = Target.Cells(Target.Row, Range("ContestantNumber").Column).Value
            .txtName.Value = Target.Cells(Target.Row, Range("ContestantName").Column).Value
            .cboAgeGroup = Target.Cells(Target.Row, Range("Group").Column).Value

When I step through this the Row value is 2, the column value is 1 the data in that cell should be 123 but it is the value from the next row.

[rylo]

Hi

The way you have your code written, it is using target as the starting point, then using CELLS to work out where to go. As the row number for TARGET, the effect is to go 2 rows from target, then across the required number of columns. If TARGET was in row 3, then you would be 3 rows off.

Try something like

cells(target.row,Range("ContestantNumber").Column).value

rylo