6/7/2023 0 Comments Excel split screen wordbook![]() Set dataSet = Range(Cells(1, 1), Cells(lng_Row, lng_Col)) Lng_Col = Cells(1, Columns.Count).End(xlToLeft).Column ' find the last row and last col of data and initialize the respective variables This is passed on to this module as a range of values ' iterate through the unique author names identified. ' declare the variables to hold the last row num and col num Sub CreateSheets(uni_val As Range, lng_col_num As Long) Set RemoveDuplicates = Range("A2:A"
0 Comments
Leave a Reply. |