I have the following macro:
Sub btnToCsv() Dim Wb As Workbook Dim Ds, Ws As Worksheet Set Ds = Sheet1 Set Wb = Workbooks.Add Set Ws =