Run a macro when a Worksheet is clicked/activated

Hi,

I'm looking for code that runs a macro when a worksheet called "email" is
clicked everytime. I think it's an event macro, but, I can not seem to find
an example.

The macro I want to run is simple

Sheets("email").Select
Range("A1").Select
Application.CutCopyMode = False
ActiveWindow.ScrollRow = 1
ActiveWindow.ScrollColumn = 1

Thanks in advance.

Wazza McG

Rightclick on the Email sheet tab and select "View Code".

From the drop down boxes above select Worksheet (from the left) and
Activate (from the right). This should create a procedure for you thus:

Private Sub Worksheet_Activate()

End Sub

Insert your code here in there e.g.

Private Sub Worksheet_Activate()
msgbox "I'm clicked"
End Sub

It will then fire every time the worksheet is activated. If that
Activates isn't what you're after, try Worksheet_SelectionChange or
maybe a combination of the two.

HTH,
Gareth

Warren McGoldrick wrote:
> Hi,
>
> I'm looking for code that runs a macro when a worksheet called "email" is
> clicked everytime. I think it's an event macro, but, I can not seem to find
> an example.
>
> The macro I want to run is simple
>
> Sheets("email").Select
> Range("A1").Select
> Application.CutCopyMode = False
> ActiveWindow.ScrollRow = 1
> ActiveWindow.ScrollColumn = 1
>
> Thanks in advance.
>
> Wazza McG
>
>

Thankyou Thankyou Thankyou
Gee that was simple!
Much appreciated, I have never used those View Code sheets before - great
stuff.

Wazza McG




"Gareth" <[email protected]> wrote in message
news:[email protected]...
> Rightclick on the Email sheet tab and select "View Code".
>
> From the drop down boxes above select Worksheet (from the left) and
> Activate (from the right). This should create a procedure for you thus:
>
> Private Sub Worksheet_Activate()
>
> End Sub
>
> Insert your code here in there e.g.
>
> Private Sub Worksheet_Activate()
> msgbox "I'm clicked"
> End Sub
>
> It will then fire every time the worksheet is activated. If that Activates
> isn't what you're after, try Worksheet_SelectionChange or maybe a
> combination of the two.
>
> HTH,
> Gareth
>
> Warren McGoldrick wrote:
>> Hi,
>>
>> I'm looking for code that runs a macro when a worksheet called "email" is
>> clicked everytime. I think it's an event macro, but, I can not seem to
>> find an example.
>>
>> The macro I want to run is simple
>>
>> Sheets("email").Select
>> Range("A1").Select
>> Application.CutCopyMode = False
>> ActiveWindow.ScrollRow = 1
>> ActiveWindow.ScrollColumn = 1
>>
>> Thanks in advance.
>>
>> Wazza McG

You're welcome!

Wazza McG wrote:
> Thankyou Thankyou Thankyou
> Gee that was simple!
> Much appreciated, I have never used those View Code sheets before - great
> stuff.
>
> Wazza McG
>
>
>
>
> "Gareth" <[email protected]> wrote in message
> news:[email protected]...
>
>>Rightclick on the Email sheet tab and select "View Code".
>>
>>From the drop down boxes above select Worksheet (from the left) and
>>Activate (from the right). This should create a procedure for you thus:
>>
>>Private Sub Worksheet_Activate()
>>
>>End Sub
>>
>>Insert your code here in there e.g.
>>
>>Private Sub Worksheet_Activate()
>>msgbox "I'm clicked"
>>End Sub
>>
>>It will then fire every time the worksheet is activated. If that Activates
>>isn't what you're after, try Worksheet_SelectionChange or maybe a
>>combination of the two.
>>
>>HTH,
>>Gareth
>>
>>Warren McGoldrick wrote:
>>
>>>Hi,
>>>
>>>I'm looking for code that runs a macro when a worksheet called "email" is
>>>clicked everytime. I think it's an event macro, but, I can not seem to
>>>find an example.
>>>
>>>The macro I want to run is simple
>>>
>>> Sheets("email").Select
>>> Range("A1").Select
>>> Application.CutCopyMode = False
>>> ActiveWindow.ScrollRow = 1
>>> ActiveWindow.ScrollColumn = 1
>>>
>>>Thanks in advance.
>>>
>>>Wazza McG
>
>
>