bklocinski
03-30-2015, 06:53 AM
I am trying to conduct a VLOOKUP against multiple worksheets within the same workbook. The code works but after the first VLOOKUP line I am getting a pop-up box to select a file path to update the data. If I click cancel the VLOOKUP will continue and the same pop-up box comes back for each remaining line but will return the correct value if found. I don't understand what is causing the pop-up box. If someone can help with a solution I would greatly appreciate it.
Sub Macro3()
' Macro3 Macro
'
'
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-4],Leites!C[-4],1,FALSE)"
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-4],SimplyGluten!C[-4],1,FALSE)"
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-4],SteammyKitchen!C[-4],1,FALSE)"
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-4],Closer!C[-4],1,FALSE)"
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-4],LIfeandStyle!C[-4],1,FALSE)"
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-4],WomansWorld!C[-4],1,FALSE)"
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-4],Starpulse!C[-4],1,FALSE)"
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-4],FirstForWomen!C[-4],1,FALSE)"
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-4],Sweepon!C[-4],1,FALSE)"
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-4],ABCSOAP!C[-4],1,FALSE)"
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-4],Intouch!C[-4],1,FALSE)"
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-4],CelebrityCafé!C[-4],1,FALSE)"
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-4],PNMAG!C[-4],1,FALSE)"
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-4],OHMyVeggies!C[-4],1,FALSE)"
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-4],LockerDome!C[-4],1,FALSE)"
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-4],EverydayFamily!C[-4],1,FALSE)"
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-4],AccessRunWay!C[-4],1,FALSE)
Sub Macro3()
' Macro3 Macro
'
'
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-4],Leites!C[-4],1,FALSE)"
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-4],SimplyGluten!C[-4],1,FALSE)"
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-4],SteammyKitchen!C[-4],1,FALSE)"
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-4],Closer!C[-4],1,FALSE)"
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-4],LIfeandStyle!C[-4],1,FALSE)"
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-4],WomansWorld!C[-4],1,FALSE)"
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-4],Starpulse!C[-4],1,FALSE)"
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-4],FirstForWomen!C[-4],1,FALSE)"
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-4],Sweepon!C[-4],1,FALSE)"
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-4],ABCSOAP!C[-4],1,FALSE)"
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-4],Intouch!C[-4],1,FALSE)"
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-4],CelebrityCafé!C[-4],1,FALSE)"
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-4],PNMAG!C[-4],1,FALSE)"
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-4],OHMyVeggies!C[-4],1,FALSE)"
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-4],LockerDome!C[-4],1,FALSE)"
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-4],EverydayFamily!C[-4],1,FALSE)"
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-4],AccessRunWay!C[-4],1,FALSE)