thanks! it worked! this is wot i put:
Sub the2()
Dim msg, style, title, responce, mystring
msg = "Enter name"
style = vbinputbox
title = "What is your Name?"
responce = inputbox(msg, title, style)
If responce = "keiron" Then DoCmd.RunMacro "the"
If responce = "Jon" Then DoCmd.RunMacro "the2"
End Sub
is there a way to then put a message with the responce name in it?