Private Sub ReadCSV_Click()
Dim serial As String
Dim signer As String
loc_idx = -1
Dim FilePath As String
FilePath = ThisWorkbook.Path + "/test.csv"
Open FilePath For Input As #1
row_number = 0
 
Do Until EOF(1)
    Line Input #1, LineFromFile
    LineItems = Split(LineFromFile, ",")
    signer = Replace(LineItems(0), Chr(34), vbNullString) 'Location
    If Not signer = vbNullString Then
        serial = Replace(CStr(LineItems(1)), Chr(34), vbNullString) 'SN
        Call SearchCell(serial) 'Search the SN
        Call SearchLocationCol(f_ws_idx) 'Search Location column in the relevant sheet
        Worksheets(f_ws_idx).Cells(f_row, loc_idx).Value = signer
    End If
    row_number = row_number + 1
Loop
 
Close #1
MsgBox "Done Updating"
   
Option Explicit
 
Public Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
        If Not Sh.Name = "Macros" Then
            Call InsertChange("test", "1111")
        End If
    End Sub