"unknown error" on vba script

"unknown error" on vba script

Any idea why I get "unknown error" on line 32?

  1. Option Explicit
  2. Sub updateCSV()

  4. Dim wb As Workbook
  5. Dim ws As Worksheet
  6. Dim newWS As Worksheet
  7. Dim i As Long
  8. Dim z As Long
  9. Dim lr As Long
  10. Dim desc As Variant, created As Variant, amt As Variant, fee As Variant

  12. 'Set Objects
  13. Set wb = ActiveWorkbook
  14. Set ws = wb.ActiveSheet
  15. Set newWS = Sheets.Add

  17. 'Vars -> Assumes headers are in row 1
  18. desc = Application.Match("Customer Description", ws.Rows(1), 0)
  19. created = Application.Match("Created (UTC)", ws.Rows(1), 0)
  20. amt = Application.Match("Amount", ws.Rows(1), 0)
  21. fee = Application.Match("Fee", ws.Rows(1), 0)
  22. z = 1

  24. 'Format newWS
  25. With newWS
  26.     .Cells(1, 1).Value = "description"
  27.     .Cells(1, 2).Value = "date"
  28.     .Cells(1, 3).Value = "Amount"
  29. End With

  31. 'Get data from ws
  32. With ws
  33.     lr = .Cells(.Rows.Count, 1).End(xlUp).Row
  34.     'Assumes data starts at row 2 and headers are on row 1
  35.     For i = 2 To lr
  36.         z = z + 1
  37.         newWS.Cells(z, 1).Value = ws.Cells(i, desc).Value
  38.         newWS.Cells(z, 2).Value = Format(ws.Cells(i, created).Value, "mm/dd/yyyy")
  39.         newWS.Cells(z, 3).Value = ws.Cells(i, amt).Value
  40.     Next i
  41.     'Add values back
  42.     For i = 2 To lr
  43.         z = z + 1
  44.         newWS.Cells(z, 1).Value = "stripe fee: " & ws.Cells(i, desc).Value
  45.         newWS.Cells(z, 2).Value = Format(ws.Cells(i, created).Value, "mm/dd/yyyy")
  46.         newWS.Cells(z, 3).Value = ws.Cells(i, fee).Value * -1
  47.     Next i
  48. End With

  50. 'Fit
  51. newWS.Columns.AutoFit

  53. End Sub


      • Sticky Posts

      • Slicers are now available in Zoho Sheet—filter your data interactively

        At Zoho Sheet, we diligently track user requests and feedback. In line with this, based on extensive user requests, we've integrated Slicers to pivot tables and are delighted to announce its release. Slicers are interactive visual filters that have add,

      • Check out the new Checkbox in Zoho Sheet

        Checkbox, the simple GUI widget that lets you choose between two mutually exclusive options i.e Yes or No, is now in Zoho Sheet. Having made it across the web, Checkbox is familiar but is still elusive to most spreadsheet software. Special developer ribbons, macros and all other complexities to add a checkbox to a spreadsheet? Not in Zoho Sheet. How to add Checkbox to Zoho Sheet? Adding a Checkbox in Zoho Sheet is simple. Select a cell/range and choose "Checkbox" in "Input Controls" under the Format

      • Format and analyze spreadsheet data with Zoho Sheet's Table

        While a spreadsheet helps you compile data for easy analysis, formatting helps make your data more comprehensible. We are happy to announce the release of Table, a crucial tool for improving data formatting in Zoho Sheet. More than a formatting tool,

      • Introducing Data Bars: Graphically represent changes in data within the cells

        Conditional formatting has helped millions of spreadsheet users analyze and highlight their data more efficiently. In addition to the classic rules, color scales, and icon sets available in Zoho Sheet, you can now apply Data Bars, a convenient method

      • Zia in Zoho Sheet now makes suggestions on conditional formats, picklists, and checkboxes

        Zia, Zoho's popular AI assistant, has been helping users succeed across Zoho applications since inception. In Zoho Sheet, Zia helps users efficiently build reports and analyze data with recommendations about data cleaning, charts, and pivot table. Also,