The code you've posted is also missing the 'SheetExists' sub. Have you included that in your code module? Also, is any code line highlighted when the 'Remote Call Procedure Failed' error occurs?

__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]

Hi Paul,
Yes,sheetexist procedure is present in my code.

And the error comes on the line,

Set xlWkBk = .Workbooks.Open(FileName:=StrWkBkNm, ReadOnly:=True, AddToMru:=False)