SHEETTAB IS BUTTON

[verluc]

When I open my workbook,I become two sheets named: Test and Test1
In the tab sheet Test there is a macro that I can run via the toolbar.
Is there a possibility that when I pressed the tab Test, this macro will autimatickly run?
Thanks for any solution.

[Al Chara]

Put your macro in the following procedure:

Private Sub Worksheet_Activate()
'insert your code here
End Sub

Right click on the worksheet tab, and go to view code. Paste this code in the big blank area.

[verluc]

On 2002-05-23 12:49, Al Chara wrote:
Put your macro in the following procedure:

Private Sub Worksheet_Activate()
'insert your code here
End Sub

Right click on the worksheet tab, and go to view code. Paste this code in the big blank area.

I have done this,but no reaction.I have still to use the toolbar to activate this macro.
Any other solution?
Many thanks

[Al Chara]

What is the code that you are trying to use?

[verluc]

On 2002-05-23 13:01, Al Chara wrote:
What is the code that you are trying to use?

Here's the begin of the macro that I have pasted :
Sub Worksheet_Activate()
Dim a, b, c, d, e, f As Byte
Dim LoadCol As Integer, x
Dim nums As Integer, maxdiff As Integer, Counter As Long
Dim filename1 As String
nums = CInt(InputBox("Maximum numbers?")
maxdiff = CInt(InputBox("Maximum difference ?)

When I pressed on the tab Test,from my sheet I must receive these two inputboxes.
Thanks for help.

[Al Chara]

On 2002-05-23 13:15, verluc wrote:

Here's the begin of the macro that I have pasted :
Sub Worksheet_Activate()
Dim a, b, c, d, e, f As Byte
Dim LoadCol As Integer, x
Dim nums As Integer, maxdiff As Integer, Counter As Long
Dim filename1 As String
nums = CInt(InputBox("Maximum numbers?")
maxdiff = CInt(InputBox("Maximum difference ?)

When I pressed on the tab Test,from my sheet I must receive these two inputboxes.
Thanks for help.

Without discussing your Dims, the code runs ok for me. Bear in mind you are missing ending parentheses on your inputbox commands. The last input box is missing an ending quote also. The input boxes popped up for when I ran your fixed code.

Make sure that you have events enabled:
Application.EnableEvents = True

[verluc]

On 2002-05-23 13:24, Al Chara wrote:

Without discussing your Dims, the code runs ok for me. Bear in mind you are missing ending parentheses on your inputbox commands. The last input box is missing an ending quote also. The input boxes popped up for when I ran your fixed code.

Make sure that you have events enabled:
Application.EnableEvents = True

Thanks for your time,but sorry this does'nt
work when I select the tab Test
I have to go to the macro himself to start.

[Al Chara]

Are you getting an error?

Without seeing more of your code, all I can say is make sure you have the code in the correct location.

Right click on the Test worksheet tab and select "View Code". Make sure that you have your code in the following event:

Private Sub Worksheet_Activate()
'Insert code here
End Sub

Make sure everything in the above code is spelled correctly and that you didn't accidently delete the "End Sub" or something silly like that.

[verluc]

On 2002-05-23 13:58, Al Chara wrote:
Are you getting an error?

Without seeing more of your code, all I can say is make sure you have the code in the correct location.

Right click on the Test worksheet tab and select "View Code". Make sure that you have your code in the following event:

Private Sub Worksheet_Activate()
'Insert code here
End Sub

Make sure everything in the above code is spelled correctly and that you didn't accidently delete the "End Sub" or something silly like that.

Sorry,but I get no error.When I click on the tab named TEST,then happend nothing.The code is spelled correctly because I can run the macro with the toolbar.
Its strange to me.

[Al Chara]

When you run it from the toolbar, where is the macro located?