Public Sub shapeArea() Dim pickShape As String Dim pickArea As Integer Dim squareArea As Integer pickShape = InputBox(prompt:="Please pick one of three shapes:" & vbCrLf & vbCrLf & "Square = 1" & vbCrLf & vbCrLf & "Triangle = 2" & vbCrLf & vbCrLf & "Circle = 3", Title:="Select A Shape", Default:="Type shape here") If pickShape = "Type shape here" Then Exit Sub ElseIf pickShape = "1" Then pickArea = InputBox(prompt:="Please enter the length of a side of the square:") If (pickArea > 0) Then squareArea = (pickArea * pickArea) MsgBox squareArea End If End If End Sub