     else          Dim value as string          value = range("$A$0").value          if value="" then   'Note: It'd be better to check here if the user input is correct!              range("$A$0").value = "Enter DOB here"          end if     end if End Sub