Worked perfectly Tom thanks just one minor problem left but I think I may
know how to solve it.

"Tom Ogilvy" wrote:

Look at

Private Sub Login_click()
with UserInterface
On error Resume Next
set rng = Worksheets("names").Range( _
.TextboxFirst.Text & "_" & .TextboxLast.Text)
On Error goto 0
if rng is nothing then
msgbox "Bad name, quitting"
unload UserInterface
thisworkbook.Close Savechanges:=False
End if
End With
application.Goto rng, true
unload UserInterFace
Call firstMacro
End Sub

--
Regards,
Tom Ogilvy

"BrianMo" wrote:

I have a user form titled UserInterface with two text boxes one for the
user's first name and one for their last name. After they input their name
for example Brian Monaghan and click on my command button titled "login" I
want
to have a macro that will take them to a range of cells named Brian_Monaghan.
Then I want that same macro to be the case for every employee named entered
who have corresponding ranges named after them as well.

Which will then be linked to a macro I wrote earlier where a specific cell
is clicked within that range and the rest of the cells on the worksheet not
in that range are locked and protected via password. Here is the code I have
for the first macro. It's very simple but I was going for a basic code here
since this is a mock.


Sheets("Employee Tracker").Select
Range("A25:M25").Locked = False
Range("A25:M25").Select
ActiveSheet.Protect Password:="testpass"
ActiveWindow.ScrollColumn = 6
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
Range("C3:C25").Select
Range("C25").Select

Thanks in advance for any help