I am looking to change the workbook name so that it can be used all the time
Range("A2:M" & LR).Copy
Windows("Fan Tracking - 2006__.xls").Activate
Range("A65536").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValuesAndNumberFormats
Code:
Range("A2").FormulaR1C1 = _
"=VLOOKUP(RC[1],'[Fan Tracking - 2006__.xls]Info'!R13C71:R27C72,2,FALSE)"
Range("A2:A" & Range("B65536").End(xlUp).Row).FillDown
And this one also:
Range("A2:M" & LR).Copy
Windows("Fan Tracking - 2006__.xls").Activate
Range("A65536").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValuesAndNumberFormats