Hi ,
U can use this code in your module
Sub Test()
Dim strTest As String
Range(A6).Select
While ActiveCell.Value
If ActiveCell.Offset(1, 0).Value Then
strTest = strTest ActiveCell.Value ;
Else
strTest = strTest ActiveCell.Value
End If
Hi,
Check attached file
Regards
Sathish Jalendran
From: excel-macros@googlegroups.com [mailto:excel-mac...@googlegroups.com]
On Behalf Of Putta Madaiah
Sent: 20 April 2009 05:33 pm
To: excel-macros@googlegroups.com
Subject: $$Excel-Macros$$ All the names copied to one Cell seperated