Microsoft Office Forums - View Single Post

macropod · 03-04-2014, 04:33 PM

Try a macro coded along the lines of:

Code:

Sub AddDept()
With ActiveSheet
  With .Range("A" & .Cells.SpecialCells(xlCellTypeLastCell).Row + 1)
    .Value = "Dept 7"
    With .Font
      .Bold = True
      .ColorIndex = 3
    End With
    .Interior.ColorIndex = 6
  End With
End With
End Sub

You could simply assign a shortcut key to the macro, without the need for a button.