Hi guys,

I've got this weird problem with a sheet that I'm making and updating for my colleagues.
I don't think the problem is in the sheet, but more in one of my colleagues excel version's or settings, but here goes

When opening the sheet, the workbook_open crashes -- and on "LEFT(variable, 3)" code.
The error is that it won't recognize "LEFT" as a command, but thinks its a reference to another sub, so it says something like "subrouting LEFT" is not available in this workbook.

To me, this doesn't make sense at all and I've got no idea how to fix this.
Anyone got any bright ideas?

The code up to the "LEFT" part below :
On all other computers, it runs fine by the way...

Private Sub Workbook_Open()
Application.EnableEvents = False
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual

Sheets("Totaaloverzicht").Activate

Dim winkel$, afd$, merk$, col&

Sheets("CBTemp").Range("A4:E1000").Delete

With Sheets("2014")
If .Range("A2").MergeCells Then .Columns(1).UnMerge
If .Range("C7") = "Afdeling" And .Range("A7") = "" Then .Range("A7") = "Vestiging"
x = .Range("F" & .Rows.Count).End(xlUp).Row
.Range("A7:A" & x).AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Sheets("CBTemp").Range("A4"), Unique:=True
.Range("C7:C" & x).AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Sheets("CBTemp").Range("B4"), Unique:=True
.Range("F7:F" & x).AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Sheets("CBTemp").Range("C4"), Unique:=True
End With

With Sheets("CBTemp")
For x = 4 To .Range("A65536").End(xlUp).Row
If IsNumeric(Left(.Range("A" & x), 3)) = True Or .Range("A" & x) = "Vestiging" Then .Range("A" & x) = ""
Next x
Thanks for any help!