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!