Sub Master() SalesData = GetInput("Enter Sales Data") If SalesData = False Then Exit Sub PostInput SalesData, "B3" End Sub Function GetInput(Message) Data = InputBox(Message) If Data = "" Then GetInput = False Else GetInput = Data End Function Sub PostInput(InputData, Target) Range(Target).Value = InputData End Sub