line item extractor

THe script is awesome. I am so glad i am getting help from you. there is a problem though. When i enter accoutn number and press 'OK', it asks me to add workbooks, i search for workbook and then press OK. i get error code 91.


Runtime error 91

After Debugging:This section is highlighted in Yellow

   AcctCol = ws.Cells.Find(AcctColStr, After:=ws.Range("A" & Rows.Count), _
                LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows, _
                SearchDirection:=xlNext, MatchCase:=False, _
                SearchFormat:=False).Column

Please edit your post to add CODE tags.