Macro to rename files in a foder

Option Explicit
Sub Not_Tested()
    Dim myPath As String, myFP As String
    Dim rg As Range, v As Variant, i As Long

    With ThisWorkbook.Sheets("Settings")
        myPath = .Range("B1").Value
        myFP = .Range("B2").Value
    End With
    With Workbooks.Open(Filename:=myFP, UpdateLinks:=False).Sheets("Sheet1") '''CHANGE SHEET NAME AS NEEDED'''
        Set rg = .Cells(1, 1).CurrentRegion
        Set rg = rg.Offset(1).Resize(rg.Rows.Count - 1)
        v = rg
    End With
    
    For i = LBound(v) To UBound(v)
        If Len(v(i, 1)) > 0 And Len(v(i, 3)) > 0 Then
            Name myPath & v(i, 1) As myFP & v(i, 3)
        End If
    Next i
End Sub