Thank you,
In the mean time I came up with this, it's very crude, but appears to
work...
Sub First()
Sheets("Lode").Select
Range("A1:D3500").Select
Application.CutCopyMode = False
Selection.ClearContents
Range("A1").Select
Sheets("Cougar").Select
Application.Dialogs(xlDialogOpen).Show arg1:="H:\US Cable\*.WK1"
Range("A1:D3500").Select
Selection.Copy
Application.ActiveWindow.Close "YES"
SENDKEYS "{Enter}", False
ActiveWindow.ActivatePrevious
Sheets("Lode").Select
Range("A1").Select
ActiveSheet.Paste
Range("A1").Select
Sheets("Cougar").Select
Range("A1").Select
ActiveWindow.ActivatePrevious
Application.CutCopyMode = False
'ActiveWorkbook.Close
ActiveWindow.WindowState = xlMaximized
End Sub
*** Sent via Developersdex
http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!