Sub True()

Dim SourceBook As Workbook
Dim sh as Worksheet
With Activeworkbook
set sh = .Worksheets.Add(After:=.Worksheets(Worksheets.coun t))
End with
sh.Name = "Data1"
ChDir ("C:\Program Files\helper")
Set SourceBook = Workbooks.Open(Filename:=Format(Date, "mm_dd_yy.txt"))
SourceBook.Worksheets(1).UserRange.copy _
Destination:=sh.Range("A1")
sourceBook.Close SaveChanges:=False
End Sub

--
Regards,
Tom Ogilvy


"Yepp12" wrote in
message ...

I have the following code that I want to open a text file that is saved
as the current date. It works but opens the text file in a new excel
spreadsheet. Is there any way to open the file in my "tester.xls"
(which is where I have this macro)?


Code:
--------------------


Sub True()

Dim SourceBook As Workbook

ChDir ("C:\Program Files\helper")
Set SourceBook = Workbooks.Open(Filename:=Format(Date, "mm_dd_yy.txt"))

End Sub


--------------------


--
Yepp12
------------------------------------------------------------------------
Yepp12's Profile:
http://www.excelforum.com/member.php...o&userid=28740
View this thread: http://www.excelforum.com/showthread...hreadid=492855