Hi JennEx,
With your Merge2 sub, change:
Code:
If Worksheets("varhold").Range("V1") = "Edit" Then
.Destination = wdSendtToNewDocument
Else
.Destination = wdSendToPrinter
End If
to:
.Destination = wdSendtToNewDocument
and change:
Code:
myPath = "u:\Sports13\Workorders\" & Format(Worksheets("varhold").Range("A1"), "ddd dd-mmm-yy")
If Len(Dir(myPath, vbDirectory)) = 0 Then MkDir myPath
oDoc2.SaveAs myPath & "\" & (Worksheets("varhold").Range("A46").Value & "docx")
to:
Code:
With oDoc2
If Worksheets("varhold").Range("V1") = "Edit" Then
myPath = "u:\Sports13\Workorders\" & Format(Worksheets("varhold").Range("A1"), "ddd dd-mmm-yy")
If Len(Dir(myPath, vbDirectory)) = 0 Then MkDir myPath
.SaveAs myPath & "\" & (Worksheets("varhold").Range("A46").Value & "docx")
Else
.PrintOut
End If
.Close False
End With
Regarding the looping issue, I think I'd need to see the code that calls the proceed23 and Merge2 subs before I could address it.