VB Excel - Attempting to Call in VB - Not working

parkerbelt

Active Member
Joined
May 23, 2014
Messages
377
This is my first time posting to a forum, so please forgive.

I received the error message "Compile Error - Procedure too large"
I'm trying to cut some of my code and put it into another sub or function or somewhere, so my program will continue to run without the error.

When I run the program now, it runs just fine, no error, it just doesn't bring back what I'm asking for in the new sub. I tried calling it a function and that didn't work either.
Why won't it bring back the data that I'm looking for in my Vlookups and what can I do to fix it?

Here's my Code:
Other code
Other code
Other code

Call Vlookups

Other code
Other code
Other code


My new subroutine starts here:

Sub Vlookups()


' Vlookup for Total Units Sold(POS Qty)


On Error Resume Next
ActiveSheet.Cells(7, emptyColumn).Value = WorksheetFunction.VLookup(Range("A7"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(8, emptyColumn).Value = WorksheetFunction.VLookup(Range("A8"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(9, emptyColumn).Value = WorksheetFunction.VLookup(Range("A9"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(10, emptyColumn).Value = WorksheetFunction.VLookup(Range("A10"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(11, emptyColumn).Value = WorksheetFunction.VLookup(Range("A11"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(12, emptyColumn).Value = WorksheetFunction.VLookup(Range("A12"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(13, emptyColumn).Value = WorksheetFunction.VLookup(Range("A13"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(14, emptyColumn).Value = WorksheetFunction.VLookup(Range("A14"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(15, emptyColumn).Value = WorksheetFunction.VLookup(Range("A15"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(16, emptyColumn).Value = WorksheetFunction.VLookup(Range("A16"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(17, emptyColumn).Value = WorksheetFunction.VLookup(Range("A17"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(18, emptyColumn).Value = WorksheetFunction.VLookup(Range("A18"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(19, emptyColumn).Value = WorksheetFunction.VLookup(Range("A19"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(20, emptyColumn).Value = WorksheetFunction.VLookup(Range("A20"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(21, emptyColumn).Value = WorksheetFunction.VLookup(Range("A21"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(22, emptyColumn).Value = WorksheetFunction.VLookup(Range("A22"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(23, emptyColumn).Value = WorksheetFunction.VLookup(Range("A23"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(24, emptyColumn).Value = WorksheetFunction.VLookup(Range("A24"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(25, emptyColumn).Value = WorksheetFunction.VLookup(Range("A25"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(26, emptyColumn).Value = WorksheetFunction.VLookup(Range("A26"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(27, emptyColumn).Value = WorksheetFunction.VLookup(Range("A27"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(28, emptyColumn).Value = WorksheetFunction.VLookup(Range("A28"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(29, emptyColumn).Value = WorksheetFunction.VLookup(Range("A29"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(30, emptyColumn).Value = WorksheetFunction.VLookup(Range("A30"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(31, emptyColumn).Value = WorksheetFunction.VLookup(Range("A31"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(32, emptyColumn).Value = WorksheetFunction.VLookup(Range("A32"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(33, emptyColumn).Value = WorksheetFunction.VLookup(Range("A33"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(34, emptyColumn).Value = WorksheetFunction.VLookup(Range("A34"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(35, emptyColumn).Value = WorksheetFunction.VLookup(Range("A35"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(36, emptyColumn).Value = WorksheetFunction.VLookup(Range("A36"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(37, emptyColumn).Value = WorksheetFunction.VLookup(Range("A37"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(38, emptyColumn).Value = WorksheetFunction.VLookup(Range("A38"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(39, emptyColumn).Value = WorksheetFunction.VLookup(Range("A39"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(40, emptyColumn).Value = WorksheetFunction.VLookup(Range("A40"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(41, emptyColumn).Value = WorksheetFunction.VLookup(Range("A41"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(42, emptyColumn).Value = WorksheetFunction.VLookup(Range("A42"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(43, emptyColumn).Value = WorksheetFunction.VLookup(Range("A43"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(44, emptyColumn).Value = WorksheetFunction.VLookup(Range("A44"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(45, emptyColumn).Value = WorksheetFunction.VLookup(Range("A45"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(46, emptyColumn).Value = WorksheetFunction.VLookup(Range("A46"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(47, emptyColumn).Value = WorksheetFunction.VLookup(Range("A47"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(48, emptyColumn).Value = WorksheetFunction.VLookup(Range("A48"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(49, emptyColumn).Value = WorksheetFunction.VLookup(Range("A49"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(50, emptyColumn).Value = WorksheetFunction.VLookup(Range("A50"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(51, emptyColumn).Value = WorksheetFunction.VLookup(Range("A51"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(52, emptyColumn).Value = WorksheetFunction.VLookup(Range("A52"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(53, emptyColumn).Value = WorksheetFunction.VLookup(Range("A53"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(54, emptyColumn).Value = WorksheetFunction.VLookup(Range("A54"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(55, emptyColumn).Value = WorksheetFunction.VLookup(Range("A55"), Sheets("Dump").Range("A2:H64"), 3, False)



' Vlookup for Total Sell Dollars (POS Sales)



ActiveSheet.Cells(64, emptyColumn).Value = WorksheetFunction.VLookup(Range("A64"), Sheets("Dump").Range("A2:H64"), 4, False)
ActiveSheet.Cells(65, emptyColumn).Value = WorksheetFunction.VLookup(Range("A65"), Sheets("Dump").Range("A2:H64"), 4, False)
ActiveSheet.Cells(66, emptyColumn).Value = WorksheetFunction.VLookup(Range("A66"), Sheets("Dump").Range("A2:H64"), 4, False)
ActiveSheet.Cells(67, emptyColumn).Value = WorksheetFunction.VLookup(Range("A67"), Sheets("Dump").Range("A2:H64"), 4, False)
ActiveSheet.Cells(68, emptyColumn).Value = WorksheetFunction.VLookup(Range("A68"), Sheets("Dump").Range("A2:H64"), 4, False)
ActiveSheet.Cells(69, emptyColumn).Value = WorksheetFunction.VLookup(Range("A69"), Sheets("Dump").Range("A2:H64"), 4, False)
ActiveSheet.Cells(70, emptyColumn).Value = WorksheetFunction.VLookup(Range("A70"), Sheets("Dump").Range("A2:H64"), 4, False)
ActiveSheet.Cells(71, emptyColumn).Value = WorksheetFunction.VLookup(Range("A71"), Sheets("Dump").Range("A2:H64"), 4, False)
ActiveSheet.Cells(72, emptyColumn).Value = WorksheetFunction.VLookup(Range("A72"), Sheets("Dump").Range("A2:H64"), 4, False)
ActiveSheet.Cells(73, emptyColumn).Value = WorksheetFunction.VLookup(Range("A73"), Sheets("Dump").Range("A2:H64"), 4, False)
ActiveSheet.Cells(74, emptyColumn).Value = WorksheetFunction.VLookup(Range("A74"), Sheets("Dump").Range("A2:H64"), 4, False)
ActiveSheet.Cells(75, emptyColumn).Value = WorksheetFunction.VLookup(Range("A75"), Sheets("Dump").Range("A2:H64"), 4, False)
ActiveSheet.Cells(76, emptyColumn).Value = WorksheetFunction.VLookup(Range("A76"), Sheets("Dump").Range("A2:H64"), 4, False)
ActiveSheet.Cells(77, emptyColumn).Value = WorksheetFunction.VLookup(Range("A77"), Sheets("Dump").Range("A2:H64"), 4, False)
ActiveSheet.Cells(78, emptyColumn).Value = WorksheetFunction.VLookup(Range("A78"), Sheets("Dump").Range("A2:H64"), 4, False)
ActiveSheet.Cells(79, emptyColumn).Value = WorksheetFunction.VLookup(Range("A79"), Sheets("Dump").Range("A2:H64"), 4, False)
ActiveSheet.Cells(80, emptyColumn).Value = WorksheetFunction.VLookup(Range("A80"), Sheets("Dump").Range("A2:H64"), 4, False)
ActiveSheet.Cells(81, emptyColumn).Value = WorksheetFunction.VLookup(Range("A81"), Sheets("Dump").Range("A2:H64"), 4, False)
ActiveSheet.Cells(82, emptyColumn).Value = WorksheetFunction.VLookup(Range("A82"), Sheets("Dump").Range("A2:H64"), 4, False)
ActiveSheet.Cells(83, emptyColumn).Value = WorksheetFunction.VLookup(Range("A83"), Sheets("Dump").Range("A2:H64"), 4, False)
ActiveSheet.Cells(84, emptyColumn).Value = WorksheetFunction.VLookup(Range("A84"), Sheets("Dump").Range("A2:H64"), 4, False)
ActiveSheet.Cells(85, emptyColumn).Value = WorksheetFunction.VLookup(Range("A85"), Sheets("Dump").Range("A2:H64"), 4, False)
ActiveSheet.Cells(86, emptyColumn).Value = WorksheetFunction.VLookup(Range("A86"), Sheets("Dump").Range("A2:H64"), 4, False)
ActiveSheet.Cells(87, emptyColumn).Value = WorksheetFunction.VLookup(Range("A87"), Sheets("Dump").Range("A2:H64"), 4, False)
ActiveSheet.Cells(88, emptyColumn).Value = WorksheetFunction.VLookup(Range("A88"), Sheets("Dump").Range("A2:H64"), 4, False)
ActiveSheet.Cells(89, emptyColumn).Value = WorksheetFunction.VLookup(Range("A89"), Sheets("Dump").Range("A2:H64"), 4, False)
ActiveSheet.Cells(90, emptyColumn).Value = WorksheetFunction.VLookup(Range("A90"), Sheets("Dump").Range("A2:H64"), 4, False)
ActiveSheet.Cells(91, emptyColumn).Value = WorksheetFunction.VLookup(Range("A91"), Sheets("Dump").Range("A2:H64"), 4, False)
ActiveSheet.Cells(92, emptyColumn).Value = WorksheetFunction.VLookup(Range("A92"), Sheets("Dump").Range("A2:H64"), 4, False)
ActiveSheet.Cells(93, emptyColumn).Value = WorksheetFunction.VLookup(Range("A93"), Sheets("Dump").Range("A2:H64"), 4, False)
ActiveSheet.Cells(94, emptyColumn).Value = WorksheetFunction.VLookup(Range("A94"), Sheets("Dump").Range("A2:H64"), 4, False)
ActiveSheet.Cells(95, emptyColumn).Value = WorksheetFunction.VLookup(Range("A95"), Sheets("Dump").Range("A2:H64"), 4, False)
ActiveSheet.Cells(96, emptyColumn).Value = WorksheetFunction.VLookup(Range("A96"), Sheets("Dump").Range("A2:H64"), 4, False)
ActiveSheet.Cells(97, emptyColumn).Value = WorksheetFunction.VLookup(Range("A97"), Sheets("Dump").Range("A2:H64"), 4, False)
ActiveSheet.Cells(98, emptyColumn).Value = WorksheetFunction.VLookup(Range("A98"), Sheets("Dump").Range("A2:H64"), 4, False)
ActiveSheet.Cells(99, emptyColumn).Value = WorksheetFunction.VLookup(Range("A99"), Sheets("Dump").Range("A2:H64"), 4, False)
ActiveSheet.Cells(100, emptyColumn).Value = WorksheetFunction.VLookup(Range("A100"), Sheets("Dump").Range("A2:H64"), 4, False)
ActiveSheet.Cells(101, emptyColumn).Value = WorksheetFunction.VLookup(Range("A101"), Sheets("Dump").Range("A2:H64"), 4, False)
ActiveSheet.Cells(102, emptyColumn).Value = WorksheetFunction.VLookup(Range("A102"), Sheets("Dump").Range("A2:H64"), 4, False)
ActiveSheet.Cells(103, emptyColumn).Value = WorksheetFunction.VLookup(Range("A103"), Sheets("Dump").Range("A2:H64"), 4, False)
ActiveSheet.Cells(104, emptyColumn).Value = WorksheetFunction.VLookup(Range("A104"), Sheets("Dump").Range("A2:H64"), 4, False)
ActiveSheet.Cells(105, emptyColumn).Value = WorksheetFunction.VLookup(Range("A105"), Sheets("Dump").Range("A2:H64"), 4, False)
ActiveSheet.Cells(106, emptyColumn).Value = WorksheetFunction.VLookup(Range("A106"), Sheets("Dump").Range("A2:H64"), 4, False)
ActiveSheet.Cells(107, emptyColumn).Value = WorksheetFunction.VLookup(Range("A107"), Sheets("Dump").Range("A2:H64"), 4, False)
ActiveSheet.Cells(108, emptyColumn).Value = WorksheetFunction.VLookup(Range("A108"), Sheets("Dump").Range("A2:H64"), 4, False)
ActiveSheet.Cells(109, emptyColumn).Value = WorksheetFunction.VLookup(Range("A109"), Sheets("Dump").Range("A2:H64"), 4, False)
ActiveSheet.Cells(110, emptyColumn).Value = WorksheetFunction.VLookup(Range("A110"), Sheets("Dump").Range("A2:H64"), 4, False)
ActiveSheet.Cells(111, emptyColumn).Value = WorksheetFunction.VLookup(Range("A111"), Sheets("Dump").Range("A2:H64"), 4, False)
ActiveSheet.Cells(112, emptyColumn).Value = WorksheetFunction.VLookup(Range("A112"), Sheets("Dump").Range("A2:H64"), 4, False)




' Vlookup for Average Unit Sales Price (Sales Sell)(Retail Price)


ActiveSheet.Cells(123, emptyColumn).Value = WorksheetFunction.VLookup(Range("A123"), Sheets("Dump").Range("A2:H64"), 5, False)
ActiveSheet.Cells(124, emptyColumn).Value = WorksheetFunction.VLookup(Range("A124"), Sheets("Dump").Range("A2:H64"), 5, False)
ActiveSheet.Cells(125, emptyColumn).Value = WorksheetFunction.VLookup(Range("A125"), Sheets("Dump").Range("A2:H64"), 5, False)
ActiveSheet.Cells(126, emptyColumn).Value = WorksheetFunction.VLookup(Range("A126"), Sheets("Dump").Range("A2:H64"), 5, False)
ActiveSheet.Cells(127, emptyColumn).Value = WorksheetFunction.VLookup(Range("A127"), Sheets("Dump").Range("A2:H64"), 5, False)
ActiveSheet.Cells(128, emptyColumn).Value = WorksheetFunction.VLookup(Range("A128"), Sheets("Dump").Range("A2:H64"), 5, False)
ActiveSheet.Cells(129, emptyColumn).Value = WorksheetFunction.VLookup(Range("A129"), Sheets("Dump").Range("A2:H64"), 5, False)
ActiveSheet.Cells(130, emptyColumn).Value = WorksheetFunction.VLookup(Range("A130"), Sheets("Dump").Range("A2:H64"), 5, False)
ActiveSheet.Cells(131, emptyColumn).Value = WorksheetFunction.VLookup(Range("A131"), Sheets("Dump").Range("A2:H64"), 5, False)
ActiveSheet.Cells(132, emptyColumn).Value = WorksheetFunction.VLookup(Range("A132"), Sheets("Dump").Range("A2:H64"), 5, False)
ActiveSheet.Cells(133, emptyColumn).Value = WorksheetFunction.VLookup(Range("A133"), Sheets("Dump").Range("A2:H64"), 5, False)
ActiveSheet.Cells(134, emptyColumn).Value = WorksheetFunction.VLookup(Range("A134"), Sheets("Dump").Range("A2:H64"), 5, False)
ActiveSheet.Cells(135, emptyColumn).Value = WorksheetFunction.VLookup(Range("A135"), Sheets("Dump").Range("A2:H64"), 5, False)
ActiveSheet.Cells(136, emptyColumn).Value = WorksheetFunction.VLookup(Range("A136"), Sheets("Dump").Range("A2:H64"), 5, False)
ActiveSheet.Cells(137, emptyColumn).Value = WorksheetFunction.VLookup(Range("A137"), Sheets("Dump").Range("A2:H64"), 5, False)
ActiveSheet.Cells(138, emptyColumn).Value = WorksheetFunction.VLookup(Range("A138"), Sheets("Dump").Range("A2:H64"), 5, False)
ActiveSheet.Cells(139, emptyColumn).Value = WorksheetFunction.VLookup(Range("A139"), Sheets("Dump").Range("A2:H64"), 5, False)
ActiveSheet.Cells(140, emptyColumn).Value = WorksheetFunction.VLookup(Range("A140"), Sheets("Dump").Range("A2:H64"), 5, False)
ActiveSheet.Cells(141, emptyColumn).Value = WorksheetFunction.VLookup(Range("A141"), Sheets("Dump").Range("A2:H64"), 5, False)
ActiveSheet.Cells(142, emptyColumn).Value = WorksheetFunction.VLookup(Range("A142"), Sheets("Dump").Range("A2:H64"), 5, False)
ActiveSheet.Cells(143, emptyColumn).Value = WorksheetFunction.VLookup(Range("A143"), Sheets("Dump").Range("A2:H64"), 5, False)
ActiveSheet.Cells(144, emptyColumn).Value = WorksheetFunction.VLookup(Range("A144"), Sheets("Dump").Range("A2:H64"), 5, False)
ActiveSheet.Cells(145, emptyColumn).Value = WorksheetFunction.VLookup(Range("A145"), Sheets("Dump").Range("A2:H64"), 5, False)
ActiveSheet.Cells(146, emptyColumn).Value = WorksheetFunction.VLookup(Range("A146"), Sheets("Dump").Range("A2:H64"), 5, False)
ActiveSheet.Cells(147, emptyColumn).Value = WorksheetFunction.VLookup(Range("A147"), Sheets("Dump").Range("A2:H64"), 5, False)
ActiveSheet.Cells(148, emptyColumn).Value = WorksheetFunction.VLookup(Range("A148"), Sheets("Dump").Range("A2:H64"), 5, False)
ActiveSheet.Cells(149, emptyColumn).Value = WorksheetFunction.VLookup(Range("A149"), Sheets("Dump").Range("A2:H64"), 5, False)
ActiveSheet.Cells(150, emptyColumn).Value = WorksheetFunction.VLookup(Range("A150"), Sheets("Dump").Range("A2:H64"), 5, False)
ActiveSheet.Cells(151, emptyColumn).Value = WorksheetFunction.VLookup(Range("A151"), Sheets("Dump").Range("A2:H64"), 5, False)
ActiveSheet.Cells(152, emptyColumn).Value = WorksheetFunction.VLookup(Range("A152"), Sheets("Dump").Range("A2:H64"), 5, False)
ActiveSheet.Cells(153, emptyColumn).Value = WorksheetFunction.VLookup(Range("A153"), Sheets("Dump").Range("A2:H64"), 5, False)
ActiveSheet.Cells(154, emptyColumn).Value = WorksheetFunction.VLookup(Range("A154"), Sheets("Dump").Range("A2:H64"), 5, False)
ActiveSheet.Cells(155, emptyColumn).Value = WorksheetFunction.VLookup(Range("A155"), Sheets("Dump").Range("A2:H64"), 5, False)
ActiveSheet.Cells(156, emptyColumn).Value = WorksheetFunction.VLookup(Range("A156"), Sheets("Dump").Range("A2:H64"), 5, False)
ActiveSheet.Cells(157, emptyColumn).Value = WorksheetFunction.VLookup(Range("A157"), Sheets("Dump").Range("A2:H64"), 5, False)
ActiveSheet.Cells(158, emptyColumn).Value = WorksheetFunction.VLookup(Range("A158"), Sheets("Dump").Range("A2:H64"), 5, False)
ActiveSheet.Cells(159, emptyColumn).Value = WorksheetFunction.VLookup(Range("A159"), Sheets("Dump").Range("A2:H64"), 5, False)
ActiveSheet.Cells(160, emptyColumn).Value = WorksheetFunction.VLookup(Range("A160"), Sheets("Dump").Range("A2:H64"), 5, False)
ActiveSheet.Cells(161, emptyColumn).Value = WorksheetFunction.VLookup(Range("A161"), Sheets("Dump").Range("A2:H64"), 5, False)
ActiveSheet.Cells(162, emptyColumn).Value = WorksheetFunction.VLookup(Range("A162"), Sheets("Dump").Range("A2:H64"), 5, False)
ActiveSheet.Cells(163, emptyColumn).Value = WorksheetFunction.VLookup(Range("A163"), Sheets("Dump").Range("A2:H64"), 5, False)
ActiveSheet.Cells(164, emptyColumn).Value = WorksheetFunction.VLookup(Range("A164"), Sheets("Dump").Range("A2:H64"), 5, False)
ActiveSheet.Cells(165, emptyColumn).Value = WorksheetFunction.VLookup(Range("A165"), Sheets("Dump").Range("A2:H64"), 5, False)
ActiveSheet.Cells(166, emptyColumn).Value = WorksheetFunction.VLookup(Range("A166"), Sheets("Dump").Range("A2:H64"), 5, False)
ActiveSheet.Cells(167, emptyColumn).Value = WorksheetFunction.VLookup(Range("A167"), Sheets("Dump").Range("A2:H64"), 5, False)
ActiveSheet.Cells(168, emptyColumn).Value = WorksheetFunction.VLookup(Range("A168"), Sheets("Dump").Range("A2:H64"), 5, False)
ActiveSheet.Cells(169, emptyColumn).Value = WorksheetFunction.VLookup(Range("A169"), Sheets("Dump").Range("A2:H64"), 5, False)
ActiveSheet.Cells(170, emptyColumn).Value = WorksheetFunction.VLookup(Range("A170"), Sheets("Dump").Range("A2:H64"), 5, False)
ActiveSheet.Cells(171, emptyColumn).Value = WorksheetFunction.VLookup(Range("A171"), Sheets("Dump").Range("A2:H64"), 5, False)
ActiveSheet.Cells(172, emptyColumn).Value = WorksheetFunction.VLookup(Range("A172"), Sheets("Dump").Range("A2:H64"), 5, False)


' Vlookup for POS Store (Club) Count


ActiveSheet.Cells(177, emptyColumn).Value = WorksheetFunction.VLookup(Range("A177"), Sheets("Dump").Range("A2:H64"), 6, False)
ActiveSheet.Cells(178, emptyColumn).Value = WorksheetFunction.VLookup(Range("A178"), Sheets("Dump").Range("A2:H64"), 6, False)
ActiveSheet.Cells(179, emptyColumn).Value = WorksheetFunction.VLookup(Range("A179"), Sheets("Dump").Range("A2:H64"), 6, False)
ActiveSheet.Cells(180, emptyColumn).Value = WorksheetFunction.VLookup(Range("A180"), Sheets("Dump").Range("A2:H64"), 6, False)
ActiveSheet.Cells(181, emptyColumn).Value = WorksheetFunction.VLookup(Range("A181"), Sheets("Dump").Range("A2:H64"), 6, False)
ActiveSheet.Cells(182, emptyColumn).Value = WorksheetFunction.VLookup(Range("A182"), Sheets("Dump").Range("A2:H64"), 6, False)
ActiveSheet.Cells(183, emptyColumn).Value = WorksheetFunction.VLookup(Range("A183"), Sheets("Dump").Range("A2:H64"), 6, False)
ActiveSheet.Cells(184, emptyColumn).Value = WorksheetFunction.VLookup(Range("A184"), Sheets("Dump").Range("A2:H64"), 6, False)
ActiveSheet.Cells(185, emptyColumn).Value = WorksheetFunction.VLookup(Range("A185"), Sheets("Dump").Range("A2:H64"), 6, False)
ActiveSheet.Cells(186, emptyColumn).Value = WorksheetFunction.VLookup(Range("A186"), Sheets("Dump").Range("A2:H64"), 6, False)
ActiveSheet.Cells(187, emptyColumn).Value = WorksheetFunction.VLookup(Range("A187"), Sheets("Dump").Range("A2:H64"), 6, False)
ActiveSheet.Cells(188, emptyColumn).Value = WorksheetFunction.VLookup(Range("A188"), Sheets("Dump").Range("A2:H64"), 6, False)
ActiveSheet.Cells(189, emptyColumn).Value = WorksheetFunction.VLookup(Range("A189"), Sheets("Dump").Range("A2:H64"), 6, False)
ActiveSheet.Cells(190, emptyColumn).Value = WorksheetFunction.VLookup(Range("A190"), Sheets("Dump").Range("A2:H64"), 6, False)
ActiveSheet.Cells(191, emptyColumn).Value = WorksheetFunction.VLookup(Range("A191"), Sheets("Dump").Range("A2:H64"), 6, False)
ActiveSheet.Cells(192, emptyColumn).Value = WorksheetFunction.VLookup(Range("A192"), Sheets("Dump").Range("A2:H64"), 6, False)
ActiveSheet.Cells(193, emptyColumn).Value = WorksheetFunction.VLookup(Range("A193"), Sheets("Dump").Range("A2:H64"), 6, False)
ActiveSheet.Cells(194, emptyColumn).Value = WorksheetFunction.VLookup(Range("A194"), Sheets("Dump").Range("A2:H64"), 6, False)
ActiveSheet.Cells(195, emptyColumn).Value = WorksheetFunction.VLookup(Range("A195"), Sheets("Dump").Range("A2:H64"), 6, False)
ActiveSheet.Cells(196, emptyColumn).Value = WorksheetFunction.VLookup(Range("A196"), Sheets("Dump").Range("A2:H64"), 6, False)
ActiveSheet.Cells(197, emptyColumn).Value = WorksheetFunction.VLookup(Range("A197"), Sheets("Dump").Range("A2:H64"), 6, False)
ActiveSheet.Cells(198, emptyColumn).Value = WorksheetFunction.VLookup(Range("A198"), Sheets("Dump").Range("A2:H64"), 6, False)
ActiveSheet.Cells(199, emptyColumn).Value = WorksheetFunction.VLookup(Range("A199"), Sheets("Dump").Range("A2:H64"), 6, False)
ActiveSheet.Cells(200, emptyColumn).Value = WorksheetFunction.VLookup(Range("A200"), Sheets("Dump").Range("A2:H64"), 6, False)
ActiveSheet.Cells(201, emptyColumn).Value = WorksheetFunction.VLookup(Range("A201"), Sheets("Dump").Range("A2:H64"), 6, False)
ActiveSheet.Cells(202, emptyColumn).Value = WorksheetFunction.VLookup(Range("A202"), Sheets("Dump").Range("A2:H64"), 6, False)
ActiveSheet.Cells(203, emptyColumn).Value = WorksheetFunction.VLookup(Range("A203"), Sheets("Dump").Range("A2:H64"), 6, False)
ActiveSheet.Cells(204, emptyColumn).Value = WorksheetFunction.VLookup(Range("A204"), Sheets("Dump").Range("A2:H64"), 6, False)
ActiveSheet.Cells(205, emptyColumn).Value = WorksheetFunction.VLookup(Range("A205"), Sheets("Dump").Range("A2:H64"), 6, False)
ActiveSheet.Cells(206, emptyColumn).Value = WorksheetFunction.VLookup(Range("A206"), Sheets("Dump").Range("A2:H64"), 6, False)
ActiveSheet.Cells(207, emptyColumn).Value = WorksheetFunction.VLookup(Range("A207"), Sheets("Dump").Range("A2:H64"), 6, False)
ActiveSheet.Cells(208, emptyColumn).Value = WorksheetFunction.VLookup(Range("A208"), Sheets("Dump").Range("A2:H64"), 6, False)
ActiveSheet.Cells(209, emptyColumn).Value = WorksheetFunction.VLookup(Range("A209"), Sheets("Dump").Range("A2:H64"), 6, False)
ActiveSheet.Cells(210, emptyColumn).Value = WorksheetFunction.VLookup(Range("A210"), Sheets("Dump").Range("A2:H64"), 6, False)
ActiveSheet.Cells(211, emptyColumn).Value = WorksheetFunction.VLookup(Range("A211"), Sheets("Dump").Range("A2:H64"), 6, False)
ActiveSheet.Cells(212, emptyColumn).Value = WorksheetFunction.VLookup(Range("A212"), Sheets("Dump").Range("A2:H64"), 6, False)
ActiveSheet.Cells(213, emptyColumn).Value = WorksheetFunction.VLookup(Range("A213"), Sheets("Dump").Range("A2:H64"), 6, False)
ActiveSheet.Cells(214, emptyColumn).Value = WorksheetFunction.VLookup(Range("A214"), Sheets("Dump").Range("A2:H64"), 6, False)
ActiveSheet.Cells(215, emptyColumn).Value = WorksheetFunction.VLookup(Range("A215"), Sheets("Dump").Range("A2:H64"), 6, False)
ActiveSheet.Cells(216, emptyColumn).Value = WorksheetFunction.VLookup(Range("A216"), Sheets("Dump").Range("A2:H64"), 6, False)
ActiveSheet.Cells(217, emptyColumn).Value = WorksheetFunction.VLookup(Range("A217"), Sheets("Dump").Range("A2:H64"), 6, False)
ActiveSheet.Cells(218, emptyColumn).Value = WorksheetFunction.VLookup(Range("A218"), Sheets("Dump").Range("A2:H64"), 6, False)
ActiveSheet.Cells(219, emptyColumn).Value = WorksheetFunction.VLookup(Range("A219"), Sheets("Dump").Range("A2:H64"), 6, False)
ActiveSheet.Cells(220, emptyColumn).Value = WorksheetFunction.VLookup(Range("A220"), Sheets("Dump").Range("A2:H64"), 6, False)
ActiveSheet.Cells(221, emptyColumn).Value = WorksheetFunction.VLookup(Range("A221"), Sheets("Dump").Range("A2:H64"), 6, False)
ActiveSheet.Cells(222, emptyColumn).Value = WorksheetFunction.VLookup(Range("A222"), Sheets("Dump").Range("A2:H64"), 6, False)
ActiveSheet.Cells(223, emptyColumn).Value = WorksheetFunction.VLookup(Range("A223"), Sheets("Dump").Range("A2:H64"), 6, False)
ActiveSheet.Cells(224, emptyColumn).Value = WorksheetFunction.VLookup(Range("A224"), Sheets("Dump").Range("A2:H64"), 6, False)
ActiveSheet.Cells(225, emptyColumn).Value = WorksheetFunction.VLookup(Range("A225"), Sheets("Dump").Range("A2:H64"), 6, False)
ActiveSheet.Cells(226, emptyColumn).Value = WorksheetFunction.VLookup(Range("A226"), Sheets("Dump").Range("A2:H64"), 6, False)



' Vlookup for Average Sales $ Per Week Per Store (Club)


ActiveSheet.Cells(231, emptyColumn).Value = WorksheetFunction.VLookup(Range("A231"), Sheets("Dump").Range("A2:H64"), 7, False)
ActiveSheet.Cells(232, emptyColumn).Value = WorksheetFunction.VLookup(Range("A232"), Sheets("Dump").Range("A2:H64"), 7, False)
ActiveSheet.Cells(233, emptyColumn).Value = WorksheetFunction.VLookup(Range("A233"), Sheets("Dump").Range("A2:H64"), 7, False)
ActiveSheet.Cells(234, emptyColumn).Value = WorksheetFunction.VLookup(Range("A234"), Sheets("Dump").Range("A2:H64"), 7, False)
ActiveSheet.Cells(235, emptyColumn).Value = WorksheetFunction.VLookup(Range("A235"), Sheets("Dump").Range("A2:H64"), 7, False)
ActiveSheet.Cells(236, emptyColumn).Value = WorksheetFunction.VLookup(Range("A236"), Sheets("Dump").Range("A2:H64"), 7, False)
ActiveSheet.Cells(237, emptyColumn).Value = WorksheetFunction.VLookup(Range("A237"), Sheets("Dump").Range("A2:H64"), 7, False)
ActiveSheet.Cells(238, emptyColumn).Value = WorksheetFunction.VLookup(Range("A238"), Sheets("Dump").Range("A2:H64"), 7, False)
ActiveSheet.Cells(239, emptyColumn).Value = WorksheetFunction.VLookup(Range("A239"), Sheets("Dump").Range("A2:H64"), 7, False)
ActiveSheet.Cells(240, emptyColumn).Value = WorksheetFunction.VLookup(Range("A240"), Sheets("Dump").Range("A2:H64"), 7, False)
ActiveSheet.Cells(241, emptyColumn).Value = WorksheetFunction.VLookup(Range("A241"), Sheets("Dump").Range("A2:H64"), 7, False)
ActiveSheet.Cells(242, emptyColumn).Value = WorksheetFunction.VLookup(Range("A242"), Sheets("Dump").Range("A2:H64"), 7, False)
ActiveSheet.Cells(243, emptyColumn).Value = WorksheetFunction.VLookup(Range("A243"), Sheets("Dump").Range("A2:H64"), 7, False)
ActiveSheet.Cells(244, emptyColumn).Value = WorksheetFunction.VLookup(Range("A244"), Sheets("Dump").Range("A2:H64"), 7, False)
ActiveSheet.Cells(245, emptyColumn).Value = WorksheetFunction.VLookup(Range("A245"), Sheets("Dump").Range("A2:H64"), 7, False)
ActiveSheet.Cells(246, emptyColumn).Value = WorksheetFunction.VLookup(Range("A246"), Sheets("Dump").Range("A2:H64"), 7, False)
ActiveSheet.Cells(247, emptyColumn).Value = WorksheetFunction.VLookup(Range("A247"), Sheets("Dump").Range("A2:H64"), 7, False)
ActiveSheet.Cells(248, emptyColumn).Value = WorksheetFunction.VLookup(Range("A248"), Sheets("Dump").Range("A2:H64"), 7, False)
ActiveSheet.Cells(249, emptyColumn).Value = WorksheetFunction.VLookup(Range("A249"), Sheets("Dump").Range("A2:H64"), 7, False)
ActiveSheet.Cells(250, emptyColumn).Value = WorksheetFunction.VLookup(Range("A250"), Sheets("Dump").Range("A2:H64"), 7, False)
ActiveSheet.Cells(251, emptyColumn).Value = WorksheetFunction.VLookup(Range("A251"), Sheets("Dump").Range("A2:H64"), 7, False)
ActiveSheet.Cells(252, emptyColumn).Value = WorksheetFunction.VLookup(Range("A252"), Sheets("Dump").Range("A2:H64"), 7, False)
ActiveSheet.Cells(253, emptyColumn).Value = WorksheetFunction.VLookup(Range("A253"), Sheets("Dump").Range("A2:H64"), 7, False)
ActiveSheet.Cells(254, emptyColumn).Value = WorksheetFunction.VLookup(Range("A254"), Sheets("Dump").Range("A2:H64"), 7, False)
ActiveSheet.Cells(255, emptyColumn).Value = WorksheetFunction.VLookup(Range("A255"), Sheets("Dump").Range("A2:H64"), 7, False)
ActiveSheet.Cells(256, emptyColumn).Value = WorksheetFunction.VLookup(Range("A256"), Sheets("Dump").Range("A2:H64"), 7, False)
ActiveSheet.Cells(257, emptyColumn).Value = WorksheetFunction.VLookup(Range("A257"), Sheets("Dump").Range("A2:H64"), 7, False)
ActiveSheet.Cells(258, emptyColumn).Value = WorksheetFunction.VLookup(Range("A258"), Sheets("Dump").Range("A2:H64"), 7, False)
ActiveSheet.Cells(259, emptyColumn).Value = WorksheetFunction.VLookup(Range("A259"), Sheets("Dump").Range("A2:H64"), 7, False)
ActiveSheet.Cells(260, emptyColumn).Value = WorksheetFunction.VLookup(Range("A260"), Sheets("Dump").Range("A2:H64"), 7, False)
ActiveSheet.Cells(261, emptyColumn).Value = WorksheetFunction.VLookup(Range("A261"), Sheets("Dump").Range("A2:H64"), 7, False)
ActiveSheet.Cells(262, emptyColumn).Value = WorksheetFunction.VLookup(Range("A262"), Sheets("Dump").Range("A2:H64"), 7, False)
ActiveSheet.Cells(263, emptyColumn).Value = WorksheetFunction.VLookup(Range("A263"), Sheets("Dump").Range("A2:H64"), 7, False)
ActiveSheet.Cells(264, emptyColumn).Value = WorksheetFunction.VLookup(Range("A264"), Sheets("Dump").Range("A2:H64"), 7, False)
ActiveSheet.Cells(265, emptyColumn).Value = WorksheetFunction.VLookup(Range("A265"), Sheets("Dump").Range("A2:H64"), 7, False)
ActiveSheet.Cells(266, emptyColumn).Value = WorksheetFunction.VLookup(Range("A266"), Sheets("Dump").Range("A2:H64"), 7, False)
ActiveSheet.Cells(267, emptyColumn).Value = WorksheetFunction.VLookup(Range("A267"), Sheets("Dump").Range("A2:H64"), 7, False)
ActiveSheet.Cells(268, emptyColumn).Value = WorksheetFunction.VLookup(Range("A268"), Sheets("Dump").Range("A2:H64"), 7, False)
ActiveSheet.Cells(269, emptyColumn).Value = WorksheetFunction.VLookup(Range("A269"), Sheets("Dump").Range("A2:H64"), 7, False)
ActiveSheet.Cells(270, emptyColumn).Value = WorksheetFunction.VLookup(Range("A270"), Sheets("Dump").Range("A2:H64"), 7, False)
ActiveSheet.Cells(271, emptyColumn).Value = WorksheetFunction.VLookup(Range("A271"), Sheets("Dump").Range("A2:H64"), 7, False)
ActiveSheet.Cells(272, emptyColumn).Value = WorksheetFunction.VLookup(Range("A272"), Sheets("Dump").Range("A2:H64"), 7, False)
ActiveSheet.Cells(273, emptyColumn).Value = WorksheetFunction.VLookup(Range("A273"), Sheets("Dump").Range("A2:H64"), 7, False)
ActiveSheet.Cells(274, emptyColumn).Value = WorksheetFunction.VLookup(Range("A274"), Sheets("Dump").Range("A2:H64"), 7, False)
ActiveSheet.Cells(275, emptyColumn).Value = WorksheetFunction.VLookup(Range("A275"), Sheets("Dump").Range("A2:H64"), 7, False)
ActiveSheet.Cells(276, emptyColumn).Value = WorksheetFunction.VLookup(Range("A276"), Sheets("Dump").Range("A2:H64"), 7, False)
ActiveSheet.Cells(277, emptyColumn).Value = WorksheetFunction.VLookup(Range("A277"), Sheets("Dump").Range("A2:H64"), 7, False)
ActiveSheet.Cells(278, emptyColumn).Value = WorksheetFunction.VLookup(Range("A278"), Sheets("Dump").Range("A2:H64"), 7, False)
ActiveSheet.Cells(279, emptyColumn).Value = WorksheetFunction.VLookup(Range("A279"), Sheets("Dump").Range("A2:H64"), 7, False)
ActiveSheet.Cells(280, emptyColumn).Value = WorksheetFunction.VLookup(Range("A280"), Sheets("Dump").Range("A2:H64"), 7, False)


' Vlookup for Average Units (Qty) Per Store (Club) Per Week


ActiveSheet.Cells(288, emptyColumn).Value = WorksheetFunction.VLookup(Range("A288"), Sheets("Dump").Range("A2:H64"), 8, False)
ActiveSheet.Cells(289, emptyColumn).Value = WorksheetFunction.VLookup(Range("A289"), Sheets("Dump").Range("A2:H64"), 8, False)
ActiveSheet.Cells(290, emptyColumn).Value = WorksheetFunction.VLookup(Range("A290"), Sheets("Dump").Range("A2:H64"), 8, False)
ActiveSheet.Cells(291, emptyColumn).Value = WorksheetFunction.VLookup(Range("A291"), Sheets("Dump").Range("A2:H64"), 8, False)
ActiveSheet.Cells(292, emptyColumn).Value = WorksheetFunction.VLookup(Range("A292"), Sheets("Dump").Range("A2:H64"), 8, False)
ActiveSheet.Cells(293, emptyColumn).Value = WorksheetFunction.VLookup(Range("A293"), Sheets("Dump").Range("A2:H64"), 8, False)
ActiveSheet.Cells(294, emptyColumn).Value = WorksheetFunction.VLookup(Range("A294"), Sheets("Dump").Range("A2:H64"), 8, False)
ActiveSheet.Cells(295, emptyColumn).Value = WorksheetFunction.VLookup(Range("A295"), Sheets("Dump").Range("A2:H64"), 8, False)
ActiveSheet.Cells(296, emptyColumn).Value = WorksheetFunction.VLookup(Range("A296"), Sheets("Dump").Range("A2:H64"), 8, False)
ActiveSheet.Cells(297, emptyColumn).Value = WorksheetFunction.VLookup(Range("A297"), Sheets("Dump").Range("A2:H64"), 8, False)
ActiveSheet.Cells(298, emptyColumn).Value = WorksheetFunction.VLookup(Range("A298"), Sheets("Dump").Range("A2:H64"), 8, False)
ActiveSheet.Cells(299, emptyColumn).Value = WorksheetFunction.VLookup(Range("A299"), Sheets("Dump").Range("A2:H64"), 8, False)
ActiveSheet.Cells(300, emptyColumn).Value = WorksheetFunction.VLookup(Range("A300"), Sheets("Dump").Range("A2:H64"), 8, False)
ActiveSheet.Cells(301, emptyColumn).Value = WorksheetFunction.VLookup(Range("A301"), Sheets("Dump").Range("A2:H64"), 8, False)
ActiveSheet.Cells(302, emptyColumn).Value = WorksheetFunction.VLookup(Range("A302"), Sheets("Dump").Range("A2:H64"), 8, False)
ActiveSheet.Cells(303, emptyColumn).Value = WorksheetFunction.VLookup(Range("A303"), Sheets("Dump").Range("A2:H64"), 8, False)
ActiveSheet.Cells(304, emptyColumn).Value = WorksheetFunction.VLookup(Range("A304"), Sheets("Dump").Range("A2:H64"), 8, False)
ActiveSheet.Cells(305, emptyColumn).Value = WorksheetFunction.VLookup(Range("A305"), Sheets("Dump").Range("A2:H64"), 8, False)
ActiveSheet.Cells(306, emptyColumn).Value = WorksheetFunction.VLookup(Range("A306"), Sheets("Dump").Range("A2:H64"), 8, False)
ActiveSheet.Cells(307, emptyColumn).Value = WorksheetFunction.VLookup(Range("A307"), Sheets("Dump").Range("A2:H64"), 8, False)
ActiveSheet.Cells(308, emptyColumn).Value = WorksheetFunction.VLookup(Range("A308"), Sheets("Dump").Range("A2:H64"), 8, False)
ActiveSheet.Cells(309, emptyColumn).Value = WorksheetFunction.VLookup(Range("A309"), Sheets("Dump").Range("A2:H64"), 8, False)
ActiveSheet.Cells(310, emptyColumn).Value = WorksheetFunction.VLookup(Range("A310"), Sheets("Dump").Range("A2:H64"), 8, False)
ActiveSheet.Cells(311, emptyColumn).Value = WorksheetFunction.VLookup(Range("A311"), Sheets("Dump").Range("A2:H64"), 8, False)
ActiveSheet.Cells(312, emptyColumn).Value = WorksheetFunction.VLookup(Range("A312"), Sheets("Dump").Range("A2:H64"), 8, False)
ActiveSheet.Cells(313, emptyColumn).Value = WorksheetFunction.VLookup(Range("A313"), Sheets("Dump").Range("A2:H64"), 8, False)
ActiveSheet.Cells(314, emptyColumn).Value = WorksheetFunction.VLookup(Range("A314"), Sheets("Dump").Range("A2:H64"), 8, False)
ActiveSheet.Cells(315, emptyColumn).Value = WorksheetFunction.VLookup(Range("A315"), Sheets("Dump").Range("A2:H64"), 8, False)
ActiveSheet.Cells(316, emptyColumn).Value = WorksheetFunction.VLookup(Range("A316"), Sheets("Dump").Range("A2:H64"), 8, False)
ActiveSheet.Cells(317, emptyColumn).Value = WorksheetFunction.VLookup(Range("A317"), Sheets("Dump").Range("A2:H64"), 8, False)
ActiveSheet.Cells(318, emptyColumn).Value = WorksheetFunction.VLookup(Range("A318"), Sheets("Dump").Range("A2:H64"), 8, False)
ActiveSheet.Cells(319, emptyColumn).Value = WorksheetFunction.VLookup(Range("A319"), Sheets("Dump").Range("A2:H64"), 8, False)
ActiveSheet.Cells(320, emptyColumn).Value = WorksheetFunction.VLookup(Range("A320"), Sheets("Dump").Range("A2:H64"), 8, False)
ActiveSheet.Cells(321, emptyColumn).Value = WorksheetFunction.VLookup(Range("A321"), Sheets("Dump").Range("A2:H64"), 8, False)
ActiveSheet.Cells(322, emptyColumn).Value = WorksheetFunction.VLookup(Range("A322"), Sheets("Dump").Range("A2:H64"), 8, False)
ActiveSheet.Cells(323, emptyColumn).Value = WorksheetFunction.VLookup(Range("A323"), Sheets("Dump").Range("A2:H64"), 8, False)
ActiveSheet.Cells(324, emptyColumn).Value = WorksheetFunction.VLookup(Range("A324"), Sheets("Dump").Range("A2:H64"), 8, False)
ActiveSheet.Cells(325, emptyColumn).Value = WorksheetFunction.VLookup(Range("A325"), Sheets("Dump").Range("A2:H64"), 8, False)
ActiveSheet.Cells(326, emptyColumn).Value = WorksheetFunction.VLookup(Range("A326"), Sheets("Dump").Range("A2:H64"), 8, False)
ActiveSheet.Cells(327, emptyColumn).Value = WorksheetFunction.VLookup(Range("A327"), Sheets("Dump").Range("A2:H64"), 8, False)
ActiveSheet.Cells(328, emptyColumn).Value = WorksheetFunction.VLookup(Range("A328"), Sheets("Dump").Range("A2:H64"), 8, False)
ActiveSheet.Cells(329, emptyColumn).Value = WorksheetFunction.VLookup(Range("A329"), Sheets("Dump").Range("A2:H64"), 8, False)
ActiveSheet.Cells(330, emptyColumn).Value = WorksheetFunction.VLookup(Range("A330"), Sheets("Dump").Range("A2:H64"), 8, False)
ActiveSheet.Cells(331, emptyColumn).Value = WorksheetFunction.VLookup(Range("A331"), Sheets("Dump").Range("A2:H64"), 8, False)
ActiveSheet.Cells(332, emptyColumn).Value = WorksheetFunction.VLookup(Range("A332"), Sheets("Dump").Range("A2:H64"), 8, False)
ActiveSheet.Cells(333, emptyColumn).Value = WorksheetFunction.VLookup(Range("A333"), Sheets("Dump").Range("A2:H64"), 8, False)
ActiveSheet.Cells(334, emptyColumn).Value = WorksheetFunction.VLookup(Range("A334"), Sheets("Dump").Range("A2:H64"), 8, False)
ActiveSheet.Cells(335, emptyColumn).Value = WorksheetFunction.VLookup(Range("A335"), Sheets("Dump").Range("A2:H64"), 8, False)
ActiveSheet.Cells(336, emptyColumn).Value = WorksheetFunction.VLookup(Range("A336"), Sheets("Dump").Range("A2:H64"), 8, False)
ActiveSheet.Cells(337, emptyColumn).Value = WorksheetFunction.VLookup(Range("A337"), Sheets("Dump").Range("A2:H64"), 8, False)






End Sub
 

Excel Facts

Enter current date or time
Ctrl+: enters current time. Ctrl+; enters current date. Use Ctrl+: Ctrl+; Enter for current date & time.

skywriter

Well-known Member
Joined
Feb 15, 2014
Messages
1,642
I just looked at your code briefly and it looks like you could save yourself a lot of trouble by looping through ranges instead of hard coding cell references over and over.
 

parkerbelt

Active Member
Joined
May 23, 2014
Messages
377
I just looked at your code briefly and it looks like you could save yourself a lot of trouble by looping through ranges instead of hard coding cell references over and over.


I figured that I could, but I don't know how to code that, so I did what I know.
I'm new to programming.
I've made a few vb programs now, but I'm just googling code and making it work for what I'm doing.

I've had a course on vb 6.0 years ago, but no matter how hard I try, I can't memorize what code to use when and I don't understand all the rules.
I wish I could do a teach yourself course or something that would explain what code to use when and the rules, etc...

I was able to reduce the size of my procedure by deleting out some scrolling that was unnecessary and the program now works...I just want to know how to store that code in a separate sub-routine or elsewhere and be able to call it from my original procedure, in-case I need to make my original procedure bigger.
 

skywriter

Well-known Member
Joined
Feb 15, 2014
Messages
1,642
I would be willing to help you, but I need the worksheet with the code so I can decipher what you are doing and figure out what the problem is.
 

skywriter

Well-known Member
Joined
Feb 15, 2014
Messages
1,642

ADVERTISEMENT

You could use the code below to see how you could substantially shorten your code.


Code:
Sub Vlookups()

Dim i As Integer


' Vlookup for Total Units Sold(POS Qty)




On Error Resume Next

For i = 7 To 55

ActiveSheet.Cells(i, emptyColumn).Value = WorksheetFunction.VLookup(Range("A" & i), Sheets("Dump").Range("A2:H64"), 3, False)

Next i

'You can eliminate this whole section.
'***************************************
'***************************************
'***************************************
ActiveSheet.Cells(8, emptyColumn).Value = WorksheetFunction.VLookup(Range("A8"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(9, emptyColumn).Value = WorksheetFunction.VLookup(Range("A9"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(10, emptyColumn).Value = WorksheetFunction.VLookup(Range("A10"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(11, emptyColumn).Value = WorksheetFunction.VLookup(Range("A11"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(12, emptyColumn).Value = WorksheetFunction.VLookup(Range("A12"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(13, emptyColumn).Value = WorksheetFunction.VLookup(Range("A13"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(14, emptyColumn).Value = WorksheetFunction.VLookup(Range("A14"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(15, emptyColumn).Value = WorksheetFunction.VLookup(Range("A15"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(16, emptyColumn).Value = WorksheetFunction.VLookup(Range("A16"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(17, emptyColumn).Value = WorksheetFunction.VLookup(Range("A17"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(18, emptyColumn).Value = WorksheetFunction.VLookup(Range("A18"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(19, emptyColumn).Value = WorksheetFunction.VLookup(Range("A19"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(20, emptyColumn).Value = WorksheetFunction.VLookup(Range("A20"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(21, emptyColumn).Value = WorksheetFunction.VLookup(Range("A21"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(22, emptyColumn).Value = WorksheetFunction.VLookup(Range("A22"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(23, emptyColumn).Value = WorksheetFunction.VLookup(Range("A23"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(24, emptyColumn).Value = WorksheetFunction.VLookup(Range("A24"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(25, emptyColumn).Value = WorksheetFunction.VLookup(Range("A25"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(26, emptyColumn).Value = WorksheetFunction.VLookup(Range("A26"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(27, emptyColumn).Value = WorksheetFunction.VLookup(Range("A27"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(28, emptyColumn).Value = WorksheetFunction.VLookup(Range("A28"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(29, emptyColumn).Value = WorksheetFunction.VLookup(Range("A29"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(30, emptyColumn).Value = WorksheetFunction.VLookup(Range("A30"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(31, emptyColumn).Value = WorksheetFunction.VLookup(Range("A31"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(32, emptyColumn).Value = WorksheetFunction.VLookup(Range("A32"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(33, emptyColumn).Value = WorksheetFunction.VLookup(Range("A33"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(34, emptyColumn).Value = WorksheetFunction.VLookup(Range("A34"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(35, emptyColumn).Value = WorksheetFunction.VLookup(Range("A35"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(36, emptyColumn).Value = WorksheetFunction.VLookup(Range("A36"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(37, emptyColumn).Value = WorksheetFunction.VLookup(Range("A37"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(38, emptyColumn).Value = WorksheetFunction.VLookup(Range("A38"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(39, emptyColumn).Value = WorksheetFunction.VLookup(Range("A39"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(40, emptyColumn).Value = WorksheetFunction.VLookup(Range("A40"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(41, emptyColumn).Value = WorksheetFunction.VLookup(Range("A41"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(42, emptyColumn).Value = WorksheetFunction.VLookup(Range("A42"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(43, emptyColumn).Value = WorksheetFunction.VLookup(Range("A43"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(44, emptyColumn).Value = WorksheetFunction.VLookup(Range("A44"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(45, emptyColumn).Value = WorksheetFunction.VLookup(Range("A45"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(46, emptyColumn).Value = WorksheetFunction.VLookup(Range("A46"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(47, emptyColumn).Value = WorksheetFunction.VLookup(Range("A47"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(48, emptyColumn).Value = WorksheetFunction.VLookup(Range("A48"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(49, emptyColumn).Value = WorksheetFunction.VLookup(Range("A49"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(50, emptyColumn).Value = WorksheetFunction.VLookup(Range("A50"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(51, emptyColumn).Value = WorksheetFunction.VLookup(Range("A51"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(52, emptyColumn).Value = WorksheetFunction.VLookup(Range("A52"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(53, emptyColumn).Value = WorksheetFunction.VLookup(Range("A53"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(54, emptyColumn).Value = WorksheetFunction.VLookup(Range("A54"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(55, emptyColumn).Value = WorksheetFunction.VLookup(Range("A55"), Sheets("Dump").Range("A2:H64"), 3, False)
'**********************************************
'**********************************************
'**********************************************
'**********************************************
'**********************************************
 

parkerbelt

Active Member
Joined
May 23, 2014
Messages
377
You could use the code below to see how you could substantially shorten your code.


Code:
Sub Vlookups()

Dim i As Integer


' Vlookup for Total Units Sold(POS Qty)




On Error Resume Next

For i = 7 To 55

ActiveSheet.Cells(i, emptyColumn).Value = WorksheetFunction.VLookup(Range("A" & i), Sheets("Dump").Range("A2:H64"), 3, False)

Next i

'You can eliminate this whole section.
'***************************************
'***************************************
'***************************************
ActiveSheet.Cells(8, emptyColumn).Value = WorksheetFunction.VLookup(Range("A8"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(9, emptyColumn).Value = WorksheetFunction.VLookup(Range("A9"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(10, emptyColumn).Value = WorksheetFunction.VLookup(Range("A10"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(11, emptyColumn).Value = WorksheetFunction.VLookup(Range("A11"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(12, emptyColumn).Value = WorksheetFunction.VLookup(Range("A12"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(13, emptyColumn).Value = WorksheetFunction.VLookup(Range("A13"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(14, emptyColumn).Value = WorksheetFunction.VLookup(Range("A14"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(15, emptyColumn).Value = WorksheetFunction.VLookup(Range("A15"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(16, emptyColumn).Value = WorksheetFunction.VLookup(Range("A16"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(17, emptyColumn).Value = WorksheetFunction.VLookup(Range("A17"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(18, emptyColumn).Value = WorksheetFunction.VLookup(Range("A18"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(19, emptyColumn).Value = WorksheetFunction.VLookup(Range("A19"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(20, emptyColumn).Value = WorksheetFunction.VLookup(Range("A20"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(21, emptyColumn).Value = WorksheetFunction.VLookup(Range("A21"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(22, emptyColumn).Value = WorksheetFunction.VLookup(Range("A22"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(23, emptyColumn).Value = WorksheetFunction.VLookup(Range("A23"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(24, emptyColumn).Value = WorksheetFunction.VLookup(Range("A24"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(25, emptyColumn).Value = WorksheetFunction.VLookup(Range("A25"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(26, emptyColumn).Value = WorksheetFunction.VLookup(Range("A26"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(27, emptyColumn).Value = WorksheetFunction.VLookup(Range("A27"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(28, emptyColumn).Value = WorksheetFunction.VLookup(Range("A28"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(29, emptyColumn).Value = WorksheetFunction.VLookup(Range("A29"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(30, emptyColumn).Value = WorksheetFunction.VLookup(Range("A30"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(31, emptyColumn).Value = WorksheetFunction.VLookup(Range("A31"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(32, emptyColumn).Value = WorksheetFunction.VLookup(Range("A32"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(33, emptyColumn).Value = WorksheetFunction.VLookup(Range("A33"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(34, emptyColumn).Value = WorksheetFunction.VLookup(Range("A34"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(35, emptyColumn).Value = WorksheetFunction.VLookup(Range("A35"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(36, emptyColumn).Value = WorksheetFunction.VLookup(Range("A36"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(37, emptyColumn).Value = WorksheetFunction.VLookup(Range("A37"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(38, emptyColumn).Value = WorksheetFunction.VLookup(Range("A38"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(39, emptyColumn).Value = WorksheetFunction.VLookup(Range("A39"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(40, emptyColumn).Value = WorksheetFunction.VLookup(Range("A40"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(41, emptyColumn).Value = WorksheetFunction.VLookup(Range("A41"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(42, emptyColumn).Value = WorksheetFunction.VLookup(Range("A42"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(43, emptyColumn).Value = WorksheetFunction.VLookup(Range("A43"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(44, emptyColumn).Value = WorksheetFunction.VLookup(Range("A44"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(45, emptyColumn).Value = WorksheetFunction.VLookup(Range("A45"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(46, emptyColumn).Value = WorksheetFunction.VLookup(Range("A46"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(47, emptyColumn).Value = WorksheetFunction.VLookup(Range("A47"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(48, emptyColumn).Value = WorksheetFunction.VLookup(Range("A48"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(49, emptyColumn).Value = WorksheetFunction.VLookup(Range("A49"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(50, emptyColumn).Value = WorksheetFunction.VLookup(Range("A50"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(51, emptyColumn).Value = WorksheetFunction.VLookup(Range("A51"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(52, emptyColumn).Value = WorksheetFunction.VLookup(Range("A52"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(53, emptyColumn).Value = WorksheetFunction.VLookup(Range("A53"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(54, emptyColumn).Value = WorksheetFunction.VLookup(Range("A54"), Sheets("Dump").Range("A2:H64"), 3, False)
ActiveSheet.Cells(55, emptyColumn).Value = WorksheetFunction.VLookup(Range("A55"), Sheets("Dump").Range("A2:H64"), 3, False)
'**********************************************
'**********************************************
'**********************************************
'**********************************************
'**********************************************



That is frickin awesome. Thank you so much!

How do you know when to declare something as an Interger or String or whatever?


So, when I go down to the next section for "Total Sell Dollars", do I need to DIM a different letter = 64 To 112 or do I use the "i" again?
Why did you have to specify that i was = 7 To 55?

Thanks again!
 

skywriter

Well-known Member
Joined
Feb 15, 2014
Messages
1,642

ADVERTISEMENT

No i is just the letter that I assigned to the variable. I declared it as an integer so it represents a number. If I declared i as a string I would be saying that i is comprised of characters. I could say i = "parkerbelt".
I have to put it in quotes because it is a string.

You only need the one i in your code. Each time you say i = 7 to 55 or whatever you declare it, that means the first time you loop with i it equals 7 and it will increment one time for each loop until it hits 55 and the loop will exit.
So each time you use a for i = you are resetting the value. You could use a different letter for each loop that is your choice, but not necessary. Just declare them as integers, for your code integers are what you want. If you declare a long or double or variant they will all work, but take up more memory and the numbers you are using are integers so this would be a waste of memory.

I replaced the number 7 in your code with i for the first loop and noticed you looped through sequential cells all the way to 55, therefore I declare i = 7 to 55.





For total sell dollars

Just declare For i = 64 to 112, put the code below in between the for statement and next i.
You replace the code in you cells that changes with each loop with i.
You started total sell dollars in cell 64 and finished at 112.


Here is your current code.
ActiveSheet.Cells(64, emptyColumn).Value = WorksheetFunction.VLookup(Range("A64"), Sheets("Dump").Range("A2:H64"), 4, False)

For i = 64 to 112

ActiveSheet.Cells(i, emptyColumn).Value = WorksheetFunction.VLookup(Range("A" & i), Sheets("Dump").Range("A2:H64"), 4, False)

Next i



Make sure only to use i for the values that change by one every time you were moving to the next line in your code. In total sell dollars your range after the sheet dump range doesn't change so I left it alone. Also with the Vlookup range since A is a string and i represents a number you must separate the letter "A" with quotes and then use & to combine with i. This way on the first loop the result is A64, but you must follow the syntax, you cannot simply type Ai, it will not work.
 
Last edited:

parkerbelt

Active Member
Joined
May 23, 2014
Messages
377
No i is just the letter that I assigned to the variable. I declared it as an integer so it represents a number. If I declared i as a string I would be saying that i is comprised of characters. I could say i = "parkerbelt".
I have to put it in quotes because it is a string.

You only need the one i in your code. Each time you say i = 7 to 55 or whatever you declare it, that means the first time you loop with i it equals 7 and it will increment one time for each loop until it hits 55 and the loop will exit.
So each time you use a for i = you are resetting the value. You could use a different letter for each loop that is your choice, but not necessary. Just declare them as integers, for your code integers are what you want. If you declare a long or double or variant they will all work, but take up more memory and the numbers you are using are integers so this would be a waste of memory.

I replaced the number 7 in your code with i for the first loop and noticed you looped through sequential cells all the way to 55, therefore I declare i = 7 to 55.


For total sell dollars

Just declare For i = 64 to 112, put the code below in between the for statement and next i.
You replace the code in you cells that changes with each loop with i.
You started total sell dollars in cell 64 and finished at 112.


Here is your current code.
ActiveSheet.Cells(64, emptyColumn).Value = WorksheetFunction.VLookup(Range("A64"), Sheets("Dump").Range("A2:H64"), 4, False)

For i = 64 to 112

ActiveSheet.Cells(i, emptyColumn).Value = WorksheetFunction.VLookup(Range("A" & i), Sheets("Dump").Range("A2:H64"), 4, False)

Next i



Make sure only to use i for the values that change by one every time you were moving to the next line in your code. In total sell dollars your range after the sheet dump range doesn't change so I left it alone. Also with the Vlookup range since A is a string and i represents a number you must separate the letter "A" with quotes and then use & to combine with i. This way on the first loop the result is A64, but you must follow the syntax, you cannot simply type Ai, it will not work.



Thanks again Bruce! I really appreciate it!
Parker
 

Forum statistics

Threads
1,141,292
Messages
5,705,529
Members
421,399
Latest member
hjweiss00

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Top