Sorry if this problem has already been solved by FERDO, but I cannot repea what he's done.
I admit I've never used a macro, and therefore I don't know where I'm making mikstakes
That's the script
Sub CATMain()
Dim i, n As Integer
Dim name, prt As String
Dim BodyName() As String
Dim...