After Selection.copy, insert

Application.DisplayAlerts=False


and before *End Sub*, close off with
Application.DisplayAlerts=True

-------------------------------------------------------------------------------
Workbooks.Open Filename:="I:\SECURED\B&H Reconciliations\"
Range("K5").Value & ".xls"
APPLICATION.DISPLAYALERTS=FALS
Selection.Copy
ActiveWindow.Close
Sheets("Submit").Select
ActiveSheet.PasteSpecial Format:="Unicode Text", Link:=False, _
DisplayAsIcon:=False

...... ....... ........
...... ....... .........

APPLICATION.DISPLAYALERTS=TRU
End Su

--
david
-----------------------------------------------------------------------
davidm's Profile: http://www.excelforum.com/member.php...fo&userid=2064
View this thread: http://www.excelforum.com/showthread.php?threadid=43738