Ref Commandbutton
 

Please forgive my last post. It was early in the morning when I read your
answer and brain was not working. This is what I tried:

I changed the code for the commandbutton that changes to STATS sheet to

FROM:
Private Sub CommandButton4_Click()
Application.Goto Reference:=Worksheets("STATS").Range("A1")
End Sub

TO:
Sub CommandButton4_Click()
'Call Stats
End Sub

I placed the following code in the "ThisWorkbook" module

Sub Stats()
Application.Goto Reference:=Worksheets("STATS").Range("A1")
End Sub


I get a "Sub or Function not defined" compile error.

LEs

"Gary''s Student" wrote:

Put your common code in a standard module. Your various button macros can
reference the common code:

Sub Button2_Click()
Call master
End Sub


Sub master()
MsgBox (" ")
End Sub
--
Gary''s Student - gsnu200769


"WLMPilot" wrote:

I have a workbook with several sheets pertaining to my work schedule,
paychecks, stats, etc. On each sheet, I have a command button for sheet so I
can click on the button and change sheets. Thus, I have several command
buttons that reference one sheet.

Is there a way to have these command buttons reference one set of code so
that I only have to enter the code to change to that sheet once?

Thanks,
Les