diff --git a/wizards/source/schedule/DlgControl.xba b/wizards/source/schedule/DlgControl.xba
index 275e507fa241..b7a7c4c957ae 100644
--- a/wizards/source/schedule/DlgControl.xba
+++ b/wizards/source/schedule/DlgControl.xba
@@ -57,7 +57,7 @@ Dim ListIndex as Integer
 		Case  cLANGUAGE_GERMAN
 			If bSelectByMouseMove Then
 '				oStatusLine.SetText("Position: " & aEvent.X & " ; " & aEvent.Y)
-				ListIndex = CalGetGermanLandAtMousePos(CInt(aEvent.X/fWidthCorrFactor), CInt(aEvent.Y/fHeightCorrFactor), Land$)
+				ListIndex = CalGetGermanLandAtMousePos(CInt(aEvent.X/fWidthCorrFactor), CInt(aEvent.Y/fHeightCorrFactor))
 				DlgCalendar.GetControl("lstHolidays").SelectItemPos(ListIndex, True)
 			End If
 	End Select	
@@ -69,7 +69,7 @@ Dim ListIndex as Integer
 	Select Case sCurLangLocale
 		Case  cLANGUAGE_GERMAN
 			If aEvent.ClickCount >= 1 Then
-				ListIndex = CalGetGermanLandAtMousePos(CInt(aEvent.X/fWidthCorrFactor), CInt(aEvent.Y/fHeightCorrFactor), Land$)
+				ListIndex = CalGetGermanLandAtMousePos(CInt(aEvent.X/fWidthCorrFactor), CInt(aEvent.Y/fHeightCorrFactor))
 			DlgCalendar.GetControl("lstHolidays").SelectItemPos(ListIndex, True)
 			bSelectByMouseMove = False
 		End If
@@ -144,4 +144,5 @@ Dim DateStr as String
 			End If
 		End If
 	End With
-End Sub</script:module>
\ No newline at end of file
+End Sub
+</script:module>
\ No newline at end of file