Sub RenameFiles()
    'Edit this variable to start the name search from a different row:
    StartRow = 1
    'Edit this variable to specify in which column the names are:
    StartColumn = 1
    'Edit this variable to look for a different string at the beginning of filenames
    Match = "Budget"
    
    'Define an FSO object
    Dim FSO As FileSystemObject
    Set FSO = New FileSystemObject
    
    'Create a variable to store the folder holding the files
    Dim FilesDir As Folder
    'Change the string here to look in a different folder (highly recommended :P)
    Set FilesDir = FSO.GetFolder("C:\yotam\temp\renamefiles\test\")
    
    'Define a counter variable and set it zero
    Dim i As Integer
    i = 0
    
    'Loop through all of the files in the folder
    Dim CurFile As File
    For Each CurFile In FilesDir.Files
    
        'If the file begins with the word "budget" then rename it
        If LCase(Left(CurFile.Name, Len(Match))) = LCase(Match) Then
            
            'Rename the file to the value in the specified cell
            CurFile.Move FilesDir + "\" + Me.Cells(StartRow + i, StartColumn).Text
            'Increment the counter so next time we will use a cell from the next row for naming
            i = i + 1
            
        End If
        
    Next
End Sub

StartRow = CInt(InputBox("Row to start from?", "Row", "1"))
StartColumn = CInt(InputBox("Column to start from?", "Column", "1"))