Sub Button5_Click() Dim response As String Range("B20").Value = InputBox("Please Include Name", "Name") Range("B20").Value = InputBox