choose better names

Author: hilkoc

.gitignore

@@ -1 +1 @@
-vbaDeveloper.xlam
+/vbaDeveloper.xlam

src/vbaDeveloper.xlam/Build.bas

@@ -17,7 +17,7 @@ Attribute VB_Name = "Build"
 ' 10.If necessary rename module 'Build1' to Build. Menu File-->Save vbaDeveloper.xlam
 '''
 
-
+Option Explicit
 
 Public Sub testImport()
     Dim proj_name As String

src/vbaDeveloper.xlam/ErrorHandling.bas

@@ -12,11 +12,7 @@ End Sub
 Public Sub handleError(Optional errLocation As String = "")
     Dim errorMessage As String
     errorMessage = "Error in " & errLocation & ", [" & Err.Source & "] : error number " & Err.Number & vbNewLine & Err.Description
-    debugPrint errorMessage
+    Debug.Print errorMessage
     MsgBox errorMessage, vbCritical, "vbaDeveloper ErrorHandler"
 End Sub
 
-
-Public Sub debugPrint(message As String)
-    Debug.Print message
-End Sub

src/vbaDeveloper.xlam/CExcelEvents.cls renamed to src/vbaDeveloper.xlam/EventListener.cls

@@ -2,12 +2,15 @@ VERSION 1.0 CLASS
 BEGIN
   MultiUse = -1  'True
 END
-Attribute VB_Name = "CExcelEvents"
+Attribute VB_Name = "EventListener"
 Attribute VB_GlobalNameSpace = False
 Attribute VB_Creatable = False
 Attribute VB_PredeclaredId = False
 Attribute VB_Exposed = False
 'This class receives and acts upon events from the excel application.
+
+Option Explicit
+
 Private WithEvents App As Application
 Attribute App.VB_VarHelpID = -1
 
@@ -30,7 +33,7 @@ Private Sub App_WorkbookAfterSave(ByVal wb As Workbook, ByVal success As Boolean
    On Error GoTo 0
    Exit Sub
 App_WorkbookAfterSave_Error:
-    ErrorHandling.handleError "vbaDeveloper.CExcelEvents afterSave"
+    ErrorHandling.handleError "vbaDeveloper.EventListener afterSave"
 End Sub
 
 Private Sub App_WorkbookBeforeSave(ByVal wb As Workbook, ByVal SaveAsUI As Boolean, Cancel As Boolean)
@@ -39,19 +42,18 @@ End Sub
 
 Private Sub App_WorkbookOpen(ByVal wb As Workbook)
    On Error GoTo App_WorkbookOpen_Error
-    debugPrint "vbaDeveloper CExcelEvents App_WorkbookOpen()"
 
     'Import all the modules for this workbook
     Dim importNow As Integer
-    importNow = MsgBox("Import the code for " & wb.name & " now?", vbYesNo, "CExcelEvents Workbook open EVENT")
+    importNow = MsgBox("Import the code for " & wb.name & " now?", vbYesNo, "EventListener Workbook open event")
     If importNow = vbYes Then
         Build.importVbaCode wb.VBProject
     End If
 
    On Error GoTo 0
    Exit Sub
 App_WorkbookOpen_Error:
-    ErrorHandling.handleError "vbaDeveloper.CExcelEvents WorkbookOpen"
+    ErrorHandling.handleError "vbaDeveloper.EventListener WorkbookOpen"
 End Sub
 
 Private Sub Class_Terminate()

src/vbaDeveloper.xlam/Test.bas

@@ -8,7 +8,6 @@ Public Sub testMyCustomActions_Open()
 End Sub
 
 
-
 Public Sub testImport()
     Dim proj_name As String
     proj_name = "vbaDeveloper"

src/vbaDeveloper.xlam/ThisWorkbook.sheet.cls

@@ -1,20 +1,22 @@
-Private eventListener As CExcelEvents
+Option Explicit
+
+Private listener As EventListener
 Private customAction As CustomActions
 
 ' Initialize member to listen to excel events
 Private Sub Workbook_Open()
-    debugPrint "vbaDeveloper thisWorkbook_open()"
-    Set eventListener = New CExcelEvents
+    Debug.Print "vbaDeveloper thisWorkbook_open()"
+    Set listener = New EventListener
     Set customAction = New MyCustomActions
     customAction.afterOpen
 End Sub
 
 ' Clean up our private members
 Private Sub Workbook_BeforeClose(Cancel As Boolean)
-    debugPrint "vbaDeveloper thisWorkbook_BeforeClose()"
+    Debug.Print "vbaDeveloper thisWorkbook_BeforeClose()"
     customAction.beforeClose
     Set customAction = Nothing
-    Set eventListener = Nothing
+    Set listener = Nothing
 End Sub