check the attached macro
Sub Macro1()
Dim sht As Worksheet
For Each sht In ActiveWorkbook.Sheets
If sht.Name <> ActiveSheet.Name Then
sht.Activate
Union(Columns(1), Columns(3), Columns(5)).Copy
Set wb = Workbooks.Add
wb.Sheets(1).Paste
wb.SaveAs Filename:="C:\Users\Mandeep.baluja\Desktop\k.csv"
On the button click create a new workbook and copy your data save your
workbook with .csv extension with the help of VBA code.
Regards,
Mandeep Baluja
On Tuesday, May 19, 2015 at 10:13:44 AM UTC+5:30, Ahmed Bayagon wrote:
>
>
>
> Hello Guys,
>
> I am trying to create a Button on Sheet1 named