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!
Bookmarks