After Saveas need to show Original name

[Matthew]

Hi not shaw what I am doing wrong here, but please can someone help.

I am working in a file with lots of sheets, one of the sheets I need to save as a txt file and then carry on working in the original file. Its working to save the file but after it closes the copy file, it returns to a open txt file not the original file.

Hope this makes sence.

Here is part of the code.

Sheets("Swip").Visible = True
    Sheets("Swip").Select
    Rows("1:1").Select
    Selection.Delete Shift:=xlUp
    Range("A1").Select
    Sheets("Swip").Copy
    ThisWorkbook.SaveAs Filename:="S:\New Kopen Reports 2009\Bar Code Lables\Z1234567" & ".TXT", FileFormat:= _
        xlCSV
    ActiveWorkbook.Close False
    Sheets("Entry").Select
    Range("B4").Select

Thanks in advance