セル幅の指定・セルの高さを指定

■セルの幅を指定

Sub setCellWidth()
    'セル幅を指定
    Range("B2").EntireColumn.ColumnWidth = 15
End Sub

■セルの高さを指定

Sub setColumnHight()
    'セル高さを指定
    Range("B2").EntireRow.RowHeight = 30
End Sub