Optimize code

thanks Izandol, should have seen that one too, mybad.


Workbooks("Dimitri04Feb2014Analysis.xlsx").Range("A1").PasteSpecial Paste:=xlPasteValues, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=False

Here I tried several things like this but still not working, "Subscript out of range" Is the problem

Windows("Dimitri04Feb2014Analysis.xlsx").Column("A1").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False



edit: maybe because I should change the extension now by .xlsm ?