Already Big thanks Izandol!

however when I add the code I get a err on:

Set wb = Workbooks.Open(Filename:=csPATH & "PCBS01.CSV")