Option Explicit
Sub AreaOfTriangle ()
Dim a As Long, b As Long , Aunit As Variant
On Error resume Next
a = Application.InputBox ("Enter base of triangle" , Type:=1)
b = Application.InputBox ("Enter height of triangle" , Type:=1)
Aunit = Application.InputBox ("Enter unit of measurement "...