On Jan 30, 9:48*am, JLGWhiz wrote:
Did you get the button from the Forms toolbar or the Control Toolbox? *If
from the Forms toolbar, the Macro has to be attached through the Assign Macro
dialog box. *If from the control toolbox then the button has Its own code
module which is accessed by double clicking in design mode. *You probably
already knew this, but just to be sure all bases are covered.



"rink" wrote:
On Jan 30, 8:48 am, JLGWhiz wrote:
If you did not name the CommandButton "InputButton" then it will not work. *
You can use CommandButton1_Click if it is the only button. *Or make sure the
Name is changed in the properties window. *The caption is not the name.

" wrote:
Hello,

Maybe someone can tell me what I am doing wrong. *I wrote the
following Macro and it appears to run correctly, however when I assign
it to the command button, nothing executes. *The button clicks but
doesnt take you to the assigned sheet. *You help is much appreciated.

Sub InputButton_click()
'
' WDRIndOrder Macro
' Macro recorded 1/24/2008 by
'

'
* * If ("B2" = "WDR") And ("B10" = "Individual") And ("B14" =
"Active") Then
* * Sheets("NPDES Ind Order").Select("B1").Select
* * ElseIf ("B2" = "NPDES Permits") And ("B10" = "Individual") And
("B14" = "Active") Then
* * Sheets("WDR Ind Order").Select("B1").Select
* * ElseIf ("B2" = "WAIVER") And ("B10" = "Individual") And ("B14" =
"Active") Then
* * Sheets("WAIVER IND Order").Select("B1").Select
* * ElseIf ("B10" = "General") And ("B14" = "Active") Then
* * Sheets("General Order").Select("B1").Select
* * ElseIf ("B2" = "ENROLLEE") And ("B14" = "Active") Then
* * Sheets("Enrollee Record ").Select("B1").Select
* * ElseIf ("B14" = "Draft") Then
* * Sheets("Draft Order-Enrollee Record").Select("B1").Select
* * End If
End Sub- Hide quoted text -

- Show quoted text -

I edited the button and renamed it InputButton and assigned the Macro
abovebut it doesn't take me anywhere. *The cells I reference in the
code have dropdown choices, would that make a difference?- Hide quoted text -

- Show quoted text -

I've tried both Buttons. I copied the code over on the Command Button
and just assigned theMacro on the Button. Neither take you anywhere.
Just for the heck of it, I added another command at the end that said
Range("B18").Select
and the button changed to that cell on the worksheet with the button
so I don't know what is going on.. I closed the worksheet without
saving so the added code would not save.