Alternate mouse click events

[Sean Burnett]

I have a workbook with many sheets, some of which i would like to allow users to open in new windows. My question is: from the home page (sheet1) i have buttons to direct users to different sheets, how can i use right click, shift-click, or something else to change the behavior of the buttons?

for example a simple left click will activate sheet2 but shift-click (or right click) will open sheet2 in a new window.

Sub SteelWeightCalculator_Click()
Worksheets("SteelWeightCalc").Visible = True
Worksheets("SteelWeightCalc").Activate
End Sub

Sub SteelWeightCalculator_?? BeforeRightClick() ??
ActiveWindow.NewWindow
Sheets("SteelWeightCalc").Activate
End Sub

Are buttons not the appropriate tool to use here?
Many thanks in advance.

 

[pgc01]

Hi Sean
Welcome to the board

Try inserting an activeX button.

Test with this:

Private Sub CommandButton1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

Select Case Button
    Case 1: MsgBox "Left click"
    Case 2: MsgBox "Right click"
End Select
End Sub