I noticed that you didn't define your variables correctly, this won't work:
Dim stDocName As String
for stDocName1 2 & 3, they must be declared seperatly, like:
Dim stDocName1, stDocName2, stDocName3 As String
if that doesn't fix it, then take out the line 'On Error...' and run it. Hit debug...