seçili hücrenin yanına işaret koyma

[dnz55]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("D1:D10")) Is Nothing Then
Target.Font.Name = "Marlett"
If Target = vbNullString Then
Target = "a"
Else
Target = vbNullString
End If
End If
End Sub

Şu kod üzerinde yapılacak değişiklikle şeçilenin değilde (örneğin "d1" seçilmiş "e2"ye işaret koydurabilirmiyiz.