Attribute VB_Name = "Module1"
Sub 閉じるだけ()
With ThisWorkbook
    .Saved = True
    .Close
End With
End Sub

Sub 保存_閉じる()
With ThisWorkbook
    .Save
    .Close
End With
End Sub

Sub 保存_終了()
With ThisWorkbook
    .Save
End With
Application.Quit
End Sub
Sub 保存だけ()
With ThisWorkbook
    .Save
End With
End Sub

Sub BMI計算()
Dim myWeight As Single
Dim myHeight As Single
Dim myBMI As Single
Dim myTekisei As Single

'自分の体重をkgで設定
myWeight = 71.5

'自分の身長をmで設定
myHeight = 1.63

'BMIを計算
myBMI = myWeight / myHeight ^ 2
MsgBox Round(myBMI, 1)

'適正体重を計算

myTekisei = myHeight ^ 2 * 22
MsgBox Round(myTekisei, 1)
End Sub