I want this code to run on specific worksheets only. I can filter the sheet names, but I need to populate a combobox with info and I cannot seem to get the codename into the With statement...
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
ShCode = Application.Sheets(Sh.Name).CodeName
If Sh.Name = "Jan-1-15" Then
It bombs at line 7....
Do I need to Dim the ShCode variable in some way? Cannot figure it out. Thanks!