We value your feedback.
Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
Function WorkbookConnectedToCode(UseApp As Excel.Application) As Workbook Set WorkbookConnectedToCode = UseApp.Workbooks(GetFullFileName(UseApp.VBE.ActiveVBProject.Filename)) End Function Function GetFullFileName(strFullPath As String) As String Dim iLastSlash As Integer iLastSlash = InStrRev(strFullPath, "\") GetFullFileName = Mid(strFullPath, iLastSlash + 1) End Function
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
|EXCEL file checking.||11||48|
|VBA – How to zip a PowerPoint presentation from excel?||3||35|
|WIthin VBA summing record count in 3 tabs||7||36|
|need count any combinaton of 4 numbers||7||22|
Join the community of 500,000 technology professionals and ask your questions.