Unabsichtlicher ComboBox_Change Aufruf

Private Sub ComboBoxObjekte_Change()
Dim strElem As String
strElem = ComboBoxObjekte.Value()
Select Case strElem
Case "Gelöschte Objekte"
Call Uebersicht_Sheet.Zeige_Objekte(2)
Case "Eingefügte Objekte"
Call Uebersicht_Sheet.Zeige_Objekte(1)
Case "Geänderte Objekte"
Call Uebersicht_Sheet.Zeige_Objekte(3)
Case "Alle Objekte"
Call Uebersicht_Sheet.Zeige_Objekte(4)
End Select
End Sub

Private Sub Importiere_Aenderungen()
'Funktion, die die Änderungsdateien einliest
Dim intCount As Integer
Dim strDatPfad As String
Dim strDatName As String
Dim strDatPfadUName As String
Dim strAenderungName As String
Dim strDatArr(4) As String
Dim wkbDatImport As Workbook
Dim wkbMakro As Workbook
Dim wksCount As Worksheet
strDatPfad = wsStart.Cells(7, 2).Value()
Set wkbMakro = ActiveWorkbook
strDatArr(0) = "Datei1"
strDatArr(1) = "Datei2"
strDatArr(2) = "Datei3"
strDatArr(3) = "Datei4"
Call AppFunktionen.eventOf
'Worksheets löschen
For Each wksCount In wkbMakro.sheets
For intCount = 0 To 3
If wksCount.Name = strDatArr(intCount) Then
wksCount.Delete
Exit For
End If
Next intCount
Next wksCount
'Sheets mit den Aenderungen einlesen
For intCount = 0 To 3
strAenderungName = strDatArr(intCount)
strDatName = "/" & strAenderungName & ".csv"
strDatPfadUName = strDatPfad & strDatName
If Dir(strDatPfadUName)  vbNullString Then
Workbooks.Open Filename:=strDatPfadUName, Local:=True
Set wkbDatImport = ActiveWorkbook
Worksheets(1).Copy After:=wkbMakro.Worksheets("Bedienung")
wkbDatImport.Close savechanges:=False
Else:
Call AppFunktionen.eventOn
MsgBox (strAenderungName & "-Datei liegt in dem Ordner nicht vor. Bitte zunächst  _
die Datei exportieren.")
Call AppFunktionen.eventOf
End If
Next intCount
Call AppFunktionen.eventOn
End Sub