Miscellany

Private Sub Worksheet_Change(ByVal Target As Range)
   'Do nothing if more than one cell is changed or content deleted
   If Target.Cells.Count > 1 Or IsEmpty(Target) Then Exit Sub

'adjust this for your actual cell
      
    If Target.Address = "$C$6" Then

'this next bit is the pasted bit from the macro 
  
    With Selection.Font
        .Name = "Arial"
        .FontStyle = "Bold"
        .Size = 11
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = 3
    End With
    End If
      
End Sub