Excel2000 VBA シートのセル幅、高さを初期値にする（もどす）

Excel2000 VBA　シートのセル幅、高さを初期値にする　追記（もどす）

Msgboxに「はい」「いいえ」を表示して処理をする

Sub cell_高さ横幅初期化()

Dim msg_box As String

msg_box = MsgBox("セル幅高さを初期値にしますか戻しますか？", vbYesNo) 'メッセージボックス表示

    Select Case msg_box
    Case vbYes              '「はい」を押されたらラベルsyokiに飛ぶ
        GoTo syoki
    Case vbNo
        GoTo owari          '「いいえ」を押されたらラベルowariに飛ぶ終了
        Exit Sub
    End Select
   
syoki:
    Cells.Select
    Selection.RowHeight = 12
    Selection.ColumnWidth = 8.43
    Range("A1").Select
   
owari:
   
End Sub