Hi Tim,

I found a way of doing it from a command button:

Private Sub CommandButton1_Click()
Dim feet, inches

feet = InputBox("Feet?")
inches = InputBox("Inches?")
Range("A1").Value = feet & "'" & " " & inches & "''"

End Sub

Hope that helps

--
Message posted from http://www.ExcelForum.com