ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   Run a macro when a Worksheet is clicked/activated (https://www.excelbanter.com/excel-programming/335394-run-macro-when-worksheet-clicked-activated.html)

Warren McGoldrick

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



Gareth[_6_]

Run a macro when a Worksheet is clicked/activated
 
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



Wazza McG[_4_]

Run a macro when a Worksheet is clicked/activated
 
Thankyou Thankyou Thankyou
Gee that was simple!
Much appreciated, I have never used those View Code sheets before - great
stuff.

Wazza McG




"Gareth" wrote in message
...
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




Gareth[_6_]

Run a macro when a Worksheet is clicked/activated
 
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" wrote in message
...

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






All times are GMT +1. The time now is 10:05 PM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com