Microsoft Office Forums - View Single Post - User input box with IF statement

Thread: User input box with IF statement

View Single Post

Old

11-12-2015, 02:32 PM

macropod

macropod is offline

macropod uses Windows 7 64bit

Windows 7 64bit macropod uses Office 2010 32bit

macropod uses Office 2010 32bit

Office 2010 32bit

Administrator

Join Date: Dec 2010

Location: Canberra, Australia

Posts: 22,338

macropod has a reputation beyond repute

macropod has a reputation beyond repute

macropod has a reputation beyond repute

macropod has a reputation beyond repute

macropod has a reputation beyond repute

macropod has a reputation beyond repute

macropod has a reputation beyond repute

macropod has a reputation beyond repute

macropod has a reputation beyond repute

macropod has a reputation beyond repute

macropod has a reputation beyond repute

Default

Try:

Code:

Sub PromptText()
Dim TopLineText As String
TopLineText = InputBox("Top Line Text?", "")
If Trim(TopLineText) <> "" Then Selection.InsertAfter TopLineText & vbCr
End Sub

PS: When posting code, please use the code tags, indicated by the # button on the posting menu.

__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]

Reply With Quote