Hi Leith

Thanks so much for your reply. Sorry for being slightly obtuse, but if I
wanted to test the content of the cells for mid(<cell,1)="c" where
would I insert this ?- tried a couple of places including here...

For J = 1 To LastCol
If Mid(ActiveSheet.Cells(I, J).Value, 1) = "c" Then
Data = Data & Cells(I, J).Value & ","
End if

But it fails on
Data = Left(Data, Len(Data) - 1)

with an Invalid proc call or arguement, thanks for your help

Best Rgds

*** Sent via Developersdex http://www.developersdex.com ***