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)