PeopleSoft Adoption Made Smooth & Simple!
On-The-Job Training Is made Intuitive & Easy With WalkMe's On-Screen Guidance Tool. Claim Your Free WalkMe Account Now
It bombs at line 7....
Private Sub Workbook_SheetActivate(ByVal Sh As Object) ShCode = Application.Sheets(Sh.Name).CodeName MsgBox (ShCode) If Sh.Name = "Jan-1-15" Then MsgBox (Sh.Name) ShCode.cboSelectPP.Clear With ShCode.cboSelectPP .AddItem "One" .AddItem "Two" .AddItem "Three" End With End If End Sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.