Hi,
Not sure what you mean by PCI1, PCI2 etc but you can qualify ranges
with workbook and worksheet references like this

Thisworkbook.Sheets(1).Range("A1")...

Also, what are you trying to do with the line
ActiveSheet.UsedRange

It won't do anything in this case..

Hth
OJ