Excel Image Viewer and Rename its File Name

[buvanamali]

Dear Experts

With the following macro I am able to change Non English File Name without any problem. I do not know how to use this macro rename multiple files.
Please help me.

ChangeFileName(sFile, tFile)
    On Local Error GoTo errors
    Dim fs, f, s
    Set fs = CreateObject("Scripting.FileSystemObject")
    fs.MoveFile sFile, tFile
    Set f = Nothing
    Exit Sub
errors:
    MsgBox "File: " & sFile & vbCrLf & Err.Description
    Err.Clear
End Sub

Sub test()
    Const sDir = "C:\Users\TOSHIBA\Desktop\Fotos\"
    ChangeFileName sDir & Range("B3").Value, sDir & Range("C3").Value
End Sub

Also the above code doesn't save the file name as "*.jpg"
Thanking you

Yours sincerely
Buvanamali

[buvanamali]

Dear Experts

With the following macro I am able to change Non English File Name without any problem. I do not know how to use this macro rename multiple files.
Please help me.

ChangeFileName(sFile, tFile)
    On Local Error GoTo errors
    Dim fs, f, s
    Set fs = CreateObject("Scripting.FileSystemObject")
    fs.MoveFile sFile, tFile
    Set f = Nothing
    Exit Sub
errors:
    MsgBox "File: " & sFile & vbCrLf & Err.Description
    Err.Clear
End Sub

Sub test()
    Const sDir = "C:\Users\TOSHIBA\Desktop\Fotos\"
    ChangeFileName sDir & Range("B3").Value, sDir & Range("C3").Value
End Sub

Also the above code doesn't save the file name as "*.jpg"
Thanking you

Yours sincerely
Buvanamali

The above Code changes non english names only for single row. I wanted to rename multiple files. please try to help me.