Dim Message1, Title1, MyValues
Message = "Please enter your name (First and Last)"
Title = "Name" '<--Change
MyValues = InputBox(Message, Title)
Sheets("Summary").Range("E8") = MyValues

"Ewing25" wrote:

Hey guys,

Simple questions.

Im trying to get a imput box come up when you open the worksheet that asks
for your name. Then it takes what you inputted and puts it into a the cell E8
in a sheet named Summary.

I have this so far:

Dim Message1, Title1, MyValues
Message = "Please enter your name (First and Last)"
Title = "Name" '<--Change
MyValues = InputBox(Message, Title)

Thanks!