Thanks for your response, sorry may I did not mention the record should move from [ListBox1] represents the FOR REVIEW LIST to [ListBox2] represents WORK IN PROGRESS LIST
I got a Syntax error in the below line:
If Dir("D:\WORK IN PROGRESS" & Replace(Me.List0.ItemData(var),".pdf","-R.pdf") <> ""...