{"product_id":"1993-pacific-marty-carter-football-card-116-116","title":"1993 Pacific Marty Carter Football Card #116","description":"\u003cp\u003e1993 Pacific Marty Carter Football Card #116 Like-New Condition. Ships USP First-Class.Dim name As String\u003cbr\u003e\n    Dim DataObj As New MSForms.DataObject\u003cbr\u003e\n    On Error Resume Next\u003cbr\u003e\n    DataObj.GetFromClipboard\u003cbr\u003e\nActiveCell.Value = Replace(DataObj.GetText, vbTab, \" \")\u003cbr\u003e\n   ' Range(\"AI1\").Value = Range(\"AI1\").Value + 1\u003cbr\u003e\n    \u003cbr\u003e\n    \u003cbr\u003e\n     'Replace tabs with spaces to prevent column splitting\u003c\/p\u003e\n\n   \u003cp\u003e' ActiveSheet.ListObjects(1).DataBodyRange.SpecialCells(xlCellTypeVisible).Cells(6).Select\u003cbr\u003e\n    \u003cbr\u003e\n'ActiveSheet.ListObjects(1).DataBodyRange.SpecialCells(xlCellTypeVisible).Cells(5).Select\u003cbr\u003e\n'ActiveCell.Copy\u003cbr\u003e\n   \u003cbr\u003e\n    'ActiveWorkbook.FollowHyperlink Address:=ActiveCell.Value\u003c\/p\u003e\u003cbr\u003e\n   \n\n     \u003cp\u003eIf Not Intersect(Target, Me.Range(\"F2:F5000\")) Is Nothing Then\u003cbr\u003e\n        ' Ensure the cell is not empty and contains text\u003cbr\u003e\n        If Target.Value \u0026lt;\u0026gt; \"\" Then\u003cbr\u003e\n            ' Turn off events to prevent an infinite loop\u003cbr\u003e\n            Application.EnableEvents = False\u003cbr\u003e\n            \u003cbr\u003e\n            ' Add +1 to the value in cell B1\u003cbr\u003e\n          '  Me.Range(\"AI1\").Value = Me.Range(\"AI1\").Value + 1\u003cbr\u003e\n            \u003cbr\u003e\n            ' Turn events back on\u003cbr\u003e\n            Application.EnableEvents = True\u003cbr\u003e\n            Worksheets(\"ShopifyFormDealsForUs_V4.0LiveS\").Range(\"AA1\").AutoFilter Field:=27, Criteria1:=\"N\", VisibleDropDown:=True\u003c\/p\u003e\n\n\n\u003cp\u003e'On Error Resume Next\u003cbr\u003e\n '   ActiveSheet.ListObjects(1).DataBodyRange.SpecialCells(xlCellTypeVisible).Cells(5).Select\u003cbr\u003e\n   ' ActiveCell.Copy\u003cbr\u003e\n    ' ActiveWorkbook.FollowHyperlink Address:=ActiveCell.Value\u003cbr\u003e\n'ActiveSheet.ListObjects(1).DataBodyRange.SpecialCells(xlCellTypeVisible).Cells(6).Select\u003cbr\u003e\n'ActiveCell.Copy\u003cbr\u003e\n        Else\u003cbr\u003e\n         Me.Range(\"AI1\").Value = Me.Range(\"AI1\").Value - 1\u003cbr\u003e\n        ' Turn events back on\u003cbr\u003e\n        Application.EnableEvents = True\u003cbr\u003e\n  '      Set wsSource = ThisWorkbook.Worksheets(1)\u003cbr\u003e\n   ' name = \"F:\\ShopifyFormDealsForUs_V4.0LiveSearchFormCSV\"\u003cbr\u003e\n'    Application.DisplayAlerts = False 'will overwrite existing files without asking\u003cbr\u003e\n '  Set wsTemp = ThisWorkbook.Worksheets(1)\u003cbr\u003e\n  ' Set wbNew = ActiveWorkbook\u003cbr\u003e\n   ' Set wsTemp = wbNew.Worksheets(1)\u003cbr\u003e\n'    wbNew.SaveAs name \u0026amp; \".csv\", xlCSVUTF8 'new way\u003cbr\u003e\n    'wbNew.Close\u003cbr\u003e\n '   Application.DisplayAlerts = True\u003c\/p\u003e\n\n  \u003cp\u003e'  Set wsSource = ThisWorkbook.Worksheets(1)\u003cbr\u003e\n  '  name = \"F:\\ShopifyFormDealsForUs_V4.0LiveSearchForm\"\u003cbr\u003e\n   ' Application.DisplayAlerts = False 'will overwrite existing files without asking\u003cbr\u003e\n   ' Set wsTemp = ThisWorkbook.Worksheets(1)\u003cbr\u003e\n   ' Set wbNew = ActiveWorkbook\u003cbr\u003e\n   ' Set wsTemp = wbNew.Worksheets(1)\u003cbr\u003e\n   ' wbNew.SaveAs name \u0026amp; \".xlsm\", xlOpenXMLWorkbookMacroEnabled 'new way\u003cbr\u003e\n    'wbNew.Close\u003cbr\u003e\n   ' Application.DisplayAlerts = True\u003c\/p\u003e\n\n\u003cp\u003eEnd If\u003cbr\u003e\nEnd If\u003cbr\u003e\n If Range(\"AM1\").Value \u0026lt;= 0 Then\u003cbr\u003e\n    Range(\"AI1\").Value = 0\u003cbr\u003e\n    Range(\"AO1\").Value = Range(\"AO1\").Value + 1\u003cbr\u003e\n    End If\u003c\/p\u003e","brand":"Deals To Us","offers":[{"title":"Default Title","offer_id":43014375211091,"sku":"116","price":5.14,"currency_code":"USD","in_stock":true}],"url":"https:\/\/dealstous.com\/products\/1993-pacific-marty-carter-football-card-116-116","provider":"Deals To Us","version":"1.0","type":"link"}