Search string and copy row to another sheet

Hello,

I am trying to use a macro which will look for a value in workbook1's column A and on finding that value, it will copy that whole row onto another workbook. Overall I have progress but the macro is repeatedly showing me an error on the below line -


Rows(CStr(LSearchRow) & ":" & CStr(LSearchRow)).Select


Is it something with the fact that I am using Excel 2010? I am not a programming expert, I recorded the macro and played around the coding to meet my requirements. Please help.