VBA (Input Box)

Sub Box1() Dim strMyName As String strMyName = InputBox("Please enter your name", "Data Entry") ActiveCell.Value = "My name is " & strMyName End Sub

Sub Box2() Dim strResult As String strResult = InputBox(prompt:="Please enter amount", _ Title:="Data Entry")

If strResult = Empty Then Exit Sub 'Terminates here if empty ActiveCell.Value = strResult End Sub

Featured Posts