most of them are simple recordable ones...
i click this a lot(without even thinking about it). it un-merges merged cells, and centers accross selection. i really really hate merged cells
Sub CenterAcrossColumns()
' CenterAcrossColumns Macro
' Macro recorded 5/6/2007 by
With Selection
.HorizontalAlignment = xlCenterAcrossSelection
.MergeCells = False
End With
End Sub
other useful ones that i saved to buttons are
- footer- file&pathname
- Convert Case -upper/lower/sentance/Title
- automatic pivot table refresh (thats not a button...it just refreshes the table when i click the sheet tab)
- File Save- pulls from cell to name the file, and saves it in my directory of choice...heres a basic one uses text in cell A1 as filename
Sub FileSaveAone()
Dim Path As String
Dim FilNam As String
Path = "C:\work\"
FilNam = Range("A1")
ActiveWorkbook.saveas FileName:=Path & FilNam & ".xls", FileFormat:=xlNormal
End Sub
several others