Dim oldcell As StringPrivate Sub worksheet_selectionchange(ByVal target As Range) Application.EnableEvents = False If Not oldcell = "" Then Range(oldcell).Font.Size = 11 End If If target.Cells.Count = 1 Then Range(target.Address).Font.Size = 16 oldcell = target.Address End If Application.EnableEvents = TrueEnd Sub
