Macro created defined list not recognized by macro to populate list

[CharlieGough]

Hi, Hopefully someone can help me;

I wrote this macro to create a new list

'Add famer group to ranges
Range("E8").Select
Selection.Copy
Sheets("Farmers").Select
ActiveSheet.Range("i1").End(xlToRight).Offset(0, 1).PasteSpecial xlPasteValues
ActiveSheet.Range("i1").End(xlToRight).Select
Selection.Resize(Selection.Rows.Count + 20, Selection.Columns.Count).Select
Selection.CreateNames Top:=True, Left:=False, Bottom:=False, Right:= _
False

which works and creates a named range.
However when I try to add a name to this list using the following, it gives me the error "Runtime Error '91' Object variable or with block variable not set"

'add farmer name to Farmer Group list
Set CommonFIND = wsFARM.Rows(1).Find(wsADD.Range("e15"), LookIn:=xlValues, LookAt:=xlWhole)
CommonFIND.End(xlDown).Offset(1).Value = wsADD.Range("F15").Value


Any help gratefully received

thanks

[JosephP]

Your Find is failing therefore you get an error when you try to use the found cell-you ought to check it's not Nothing before you try to use it