Hi

I saw this code to have only one cell ticked in a row (my case D4:H4)

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Cells.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("D4:H4")) Is Nothing Then
         
        Target.Font.Name = "Marlett"
        If Target = vbNullString Then
            If WorksheetFunction.CountA(Range(Cells(Target.Row, "D"), Cells(Target.Row, "H"))) <> 0 Then
                MsgBox "One tick per row", vbCritical
            Else
                Target = "a"
            End If
        Else
            Target = vbNullString
        End If
    End If
End Sub
I'm unsure if this is right - as what I would like is once the user has clicked and hence selected that cell (any cell from D4 to H4) to have a "tick" in it, the user is redirected to the next row D5:H5 - to select a cell between D5 to H5 and then move onto next row.

How can I modify the above?

All help much appreciated.