Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Dim IndexCol As String
Application.EnableEvents = False
IndexCol = "C"
With Intersect(Target.EntireRow, Columns(IndexCol))
.Value = "a"
.Font.Name = "Marlett"
End With
Application.EnableEvents = True
End Sub
|