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