>
> try this
> Sub create_txtfile()
>
> MyFile = "C:\Documents and Settings\achamanlalko\Desktop\ashish.txt"
> 'set and open file for output
> fnum = FreeFile()
> Open MyFile For Append As #1
> Write #1,
> For i = 3 To Sheets(1).Range("a65356").End(xlUp).Row
> 'Write #fnum,Sheets(1).Cells(i, 2).Val
try this
create any text file and write its location in MyFile =
Sub create_txtfile()
MyFile = "C:\Documents and Settings\ashish\Desktop\ashish.txt"
'set and open file for output
fnum = FreeFile()
Open MyFile For Output As fnum
For i = 3 To Sheets(1).Range("a65356").End(xlUp).Row
'Write #fnum,