Hello Dear,
Try using the code below. I am sure this will help you
Regards,
Sarfaraz Ahmed
Sub CopyPaste()
Dim i As Long
Dim j As Integer
i = 1
j = 1
Open "C:\Test1.txt" For Append As #1
Do While i <= Selection.Rows.Count
j = 1
Do While j <= Selection.Columns.Count
Print #1, Selection.Cells(i, j);
j = j + 1
Loop
Print #1, vbCrLf
i = i + 1
Loop
Close #1
End Sub
Discuss This Question: 1  Reply