Worksheet_Activate only if .xltm

kiwimtnbkr · #1 07-22-2019, 08:15 PM

The workbook template opens on worksheet1 which contains some instructions. When the user clicks on the worksheet2 tab to fill in the required information then the following original code caused a dropdown list to appear:

Code:

Private Sub Worksheet_Activate()
Range("H4").Select
Sendkeys "%{up}{NUMLOCK}", True
End Sub

When the workbook template saves it is saved as an .xlsm. I added the below code to stop the Sub from running when the now .xlsm file is opened

Code:

Private Sub Worksheet_Activate()
If ActiveWorkbook.FileFormat = xlOpenXMLWorkbookMarcoEnabled Then Exit Sub
Range("H4").Select
Sendkeys "%{up}{NUMLOCK}", True
End Sub

but this has now caused the dropdown list to no longer drop down in the .xltm file when the user clicks on the worksheet2 tab.

Where am I going wrong?

cheers
Mike