Mega Code Archive

 

Categories / VisualBasic Script / Language Basics

 

Read data from dialog box and fill it into the cell

Sub GetData()    Sales = InputBox(Prompt:="Enter Target Sales")    If Sales = "" Then Exit Sub    Range("B2").Value = Sales End Sub