Quote:
Originally Posted by joblo108
Hi
The problem is in the line
MyKeys = Sheets("Keywords").Range("A2:A" & Sheets("Keywords").Cells(Rows.Count, 1).End(xlUp).Row)
of the macro.
How should I change it to conform with my spreadsheet?
Thanks for your help!
/Johan
|
Make sure you have a sheet named
Keywords, which has your keywords in column A starting from cell A2
This part of the code assumes that your data to evaluate is in Sheet1; if not, rename worksheet as Sheet1, or type in this part of the code the name of your sheet with data; this code assumes that data range is column C; if not, change the column letter...
Code:
With Sheets("Sheet1")
For Each c In .Range("C1", .Range("C" & Rows.Count).End(xlUp))