Hi,

I am trying to write a macro that will delete old data out of my worksheet, retrive a file from the desktop, and paste the new data where the old data was. My macro works fine when I run it on the computer that I write the macro on because it searches that particular desktop, but it will not work when I run it on a different computer. Here is my macro that I'm having trouble with:

Sub InsertData4()
'
' InsertData4 Macro
'

'
Range("A3:D3").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.ClearContents
Range("F1").Select
Selection.Copy
Application.CutCopyMode = False
Workbooks.OpenText Filename:="C:\Users\Owner\Desktop\710.txt", Origin:=437 _
, StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, Comma:=False _
, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), Array(2, 1), _
Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 1), Array(8, 1), Array(9, 1), _
Array(10, 1)), TrailingMinusNumbers:=True
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Windows("UPDATED with macros thurs afternoon.xlsm").Activate
Range("A3").Select
ActiveSheet.Paste
Columns("A:A").EntireColumn.AutoFit
Columns("B:B").EntireColumn.AutoFit
Columns("C:C").EntireColumn.AutoFit
Columns("D:D").EntireColumn.AutoFit
End Sub


Again, the part I'm having problems with is getting the file "710" into my workbook from any desktop. Thanks in advance for the help!