Worksheet_Activate event between worksheets

[krrishkrsna]

Hi

unable to execute events between worksheets

in Sheet1 worksheet event
private sub Worksheet_Activate()
Msgbox "Hi"
End Sub

in sheet2 worksheet event
private sub Worksheet_Activate()
Application.Run "Sheet1.Worksheet_Activate"
End Sub

after googling used friend or public in place of private but no result. plz help

 

[HaHoBe]

Hi,

code does fine for me as long as the codename of the first sheet is Sheet1 and the codes are placed behind the corresponding worksheets. Have you checked that the events are on for by putting this line in the immediate window and press enter

?Application.DisplayAlerts

In the future please make use of the code-tags available for displaying your procedures.

Ciao.
Holger

 

[krrishkrsna]

Hi,

code does fine for me as long as the codename of the first sheet is Sheet1 and the codes are placed behind the corresponding worksheets. Have you checked that the events are on for by putting this line in the immediate window and press enter

?Application.DisplayAlerts

In the future please make use of the code-tags available for displaying your procedures.

Ciao.
Holger

today works perfectly below codes
in sheet1
Private Sub Worksheet_Activate()
MsgBox "Hi"
End Sub

in sheet2
Private Sub Worksheet_Activate()
Application.Run "Sheet1.Worksheet_Activate"
End Sub

but no results for below code in sheet2
in sheet1
Private Sub Worksheet_Activate()
Dim wkshtnm As Worksheet, i As Integer
i = 1
For Each wkshtnm In ThisWorkbook.Worksheets
Range("A" & i) = wkshtnm.Name
i = i + 1
Next wkshtnm
End Sub

in sheet2
Private Sub Worksheet_Activate()
Application.Run "Sheet1.Worksheet_Activate"
End Sub

 

[Skyybot]

In Worksheet 2 (assuming you haven't changed the Name of Sheet1)

Private Sub Worksheet_Activate()
Sheet1.Activate
End Sub

 

[HaHoBe]

In ThisWorkbook

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
  Range("A1").Value = Sh.Name
End Sub

Holger

 

[krrishkrsna]

In Worksheet 2 (assuming you haven't changed the Name of Sheet1)

Private Sub Worksheet_Activate()
Sheet1.Activate
End Sub

Hi,

Sorry i was not well to look into the solution provided by you. actually i am in need of execution of Sheet1 event macros in other sheets but your solution selecting always sheet1

 

[offthelip]

You might find it easier to achieve what you are trying to do by using the workbook sheet activate event instead of all the individual worksheet activate events