Sub MyHeight()  'Define the height of the row(=tate) of the selected cell.

    Dim tate_now As Single
    tate_now = Selection.RowHeight
    tate_now = tate_now / Application.CentimetersToPoints(1)

    Dim tate As String
    tate = InputBox("Type Height (cm).", "Set Height", tate_now)

    '実行
    If tate <> "" Then
        Selection.RowHeight = Application.CentimetersToPoints(CSng(tate))
    End If

End Sub


Sub MyMerge()    'Merge/Unmerge cells
    Selection.MergeCells = Not Selection.MergeCells
End Sub


Sub MyPrintAreaSetUp()    'Set Selected Area as the Print Area
    Dim hani As Range
    Set hani = Selection

    ActiveSheet.PageSetup.PrintArea = hani.Address

End Sub


Sub MyCenter()     'Sentaku_hani_de_chuou

    With Selection
        .HorizontalAlignment = xlCenterAcrossSelection
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .ShrinkToFit = False
        .MergeCells = False
    End With

End Sub