Hi Paul,

Quote:

Try using: If InStr(UCase(Sctn.Range.Sentences.First), "DESIGN REQUIREMENT") > 0 Then

I tried, no success. It is same as before, it just creates one section. I also tried by inserting "*DESIGN REQUIREMENT*" no files were created.

There should be a way to get this done. I hope to be successful.

Thanks
FLDS