name validation

[=?iso-8859-1?q?Luis_A=2E_V=E1zquez?=]

Hi Excel Gurus,

im looking to hava a small macro that checks if a cell that i
designate as a cell to enter your name is empty. and if so, to have a
input box ask for the name, and enter it into the cell.

i know nothing about programming but im doing an effort here, this is
the code i wrote: the thing is that when the inputbox comes up and i
write some thing and hit ok, it doesnt put it in B1.

Sub entername()
name = Range("B1")
B1 = name
If B1 = "" Then
B1 = InputBox("enter your name", "yourname here")
Else
MsgBox "name in place, continue(or something like that"
End If
End Sub

what is this programming newbie doing wrong?

 

[Guest]

try this

Sub entername()
If b1 = "" Then
b1 = InputBox("enter your name", "yourname here")
Else
MsgBox "name in place, continue(or something like that"
End If
Worksheets("Sheet1").Range("b1").Activate
ActiveCell = b1
End Sub