Ps. For some reason I can no longer get carriage returns in this forum so the code I pasted should have a carriage return after each line. eg.Sub InsertFromScanner() (carriage return) On Error Resume Next (carriage return) WordBasic.InsertImagerScan (carriage return) End Sub (carriage return) Paul D