how to make my macro available in all excel workbooks

Where Can I Find the Personal Macro Workbook?.

' so that the new data doesn't overwrite the old ones ' increase the counter value of the last row ' which is in the item of the corresponding key ' in the third column we put the data of the first element of the array, ' the data from dictionary key are placed in the second column of the current sheet

' look in the first column of the sheet for a match for each of the keys

' going through the keys of the dictionary ' the items become an array of values of the columns we need (here 2, 3, 5, 6 etc.) ' fill in the dictionary, taking as keys the contents of the first column of our array r, ' go through the lines of our array (since the first line is the header, we start with the second) ' but the available construction allows you to quickly check the state of elements via Immediate window ' In fact, you can do without variable here (With CreateObject('Scripting.Dictionary') block. ' create a dictionary and place it to the d variable 'if you run the code step by step with the F8, you can observe the filling of variables in the Locals window of VBE 'load the active area of the sheet into the array r (highly recommend to get familiar with the terms UsedRange and CurrentRegion) ' Declare r as Variant, d as Variant, i as Long, lr as Long, f as Variant ' but it's better to give them longer and clearer names I often give variables short (one- and two-letter) names, I'll work with the code you provided ( but would greatly appreciate your help if you find the solution before I do In my real life application, I would like it to check if the value in Sheet1 (ws44), column B is present in Sheet2 (ws43) column C and only copy the row if the value is NOT present. With my new code, I notice that each time I run the macro, it copies the rows over, even though they already exist. Columns('E').Cells(.UsedRange.Rows(.).Row)).copy Destination:=nextcell.Offset(0, 4) Columns('C').Cells(.UsedRange.Rows(.).Row)).copy Destination:=nextcell.Offset(0, 2) Columns('A').Cells(.UsedRange.Rows(.).Row)).copy Destination:=nextcell 'Cells(r, col1.Column).Interior.Color = vbYellow If IsEmpty(cell) = True Then cell.Select: Exit For

Lr = Columns('B:C').SpecialCells(xlCellTypeLastCell).Row

How to make my macro available in all excel workbooks