remove text wrap &open calculator & unmerge cell & date in header setup

 remove text wrap 

Sub RemoveTextWrap()

Range("A1").WrapText = False

End Sub

unmerge cell

Sub UnmergeCells()

Selection.UnMerge

End Sub

open calculator

Sub OpenCalculator()

Application.ActivateMicrosoftApp Index:=0

End Sub

date in header setup

Sub DateInHeader()

With ActiveSheet.PageSetup

.LeftHeader = ""

.CenterHeader = "&D"

.RightHeader = ""

.LeftFooter = ""

.CenterFooter = ""

.RightFooter = ""

End With

End Sub