Check your other post.

Need help with sumif wrote:

Can someone tell me how to run this in excel

Private Sub CommandButton1_Click()
Dim sName As String
sName = InputBox("Enter your name", "Title")
Cells.Value("A1") = sName
End Sub

--

Dave Peterson