Sub StartExtract()
' Load the CSV file
 OpenCSVFile

Sheets("temp").Select
Sheets("NS_Aug_310_330").Select
Columns("A:F").Select
Selection.ClearContents

Workbooks.Open FileName:="C:Usersp100789DocumentsSAPSAP
GUItext.txt"
Cells.ClearContents
ActiveWorkbook.Close SaveChanges:=True

End Sub