Mega Code Archive

 

Categories / VisualBasic Script / Language Basics

 

Checks for the Cancel button clicks and takes no action

Sub GetValue2()     UserEntry = InputBox("Enter the value")     If UserEntry <> "" Then range("A1").value = UserEntry End Sub