Hi Lexi,
Is this more what you are looking for?
Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'clicking on the same row twice will work, as long as it is a different cell.
Dim lr As Long 'to find last row with data which we will base on column A, change that to a column that will always have data on every row
lr = Range("A" & Rows.Count).End(xlUp).Row
If Target.CountLarge > 1 Then Exit Sub
If Target.Row > 4 And Target.Row < lr + 1 Then 'so code will only put check marks after headers, and only up to last row
If Range("AI" & Target.Row).Value = "ü" Then Range("AI" & Target.Row).Value = "" Else Range("AI" & Target.Row).Value = "ü"
'Target.Offset(0, 1).Select 'seems this line is not needed for your requirements?
End If
End Sub
Bookmarks