Try even simpler:

Sub Auto_open()
Sheets("Summary").Range("E8").Value = _
InputBox("Yo name:", "Important")
End Sub

HTH. Best wishes Harald

"Ewing25" wrote in message
...
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!