Changing File Names in Excel Folder

JPDutch,

Something like this?

Sub tgr()
    
    Const strFldrPath As String = "H:\SAFETY\FORMS\ 300 & 300A\2011\"
    Dim strFile As String: strFile = Dir(strFldrPath)
    
    While strFile <> vbNullString
        Name strFldrPath & strFile As Replace(strFldrPath & strFile, "2010", "2011")
        strFile = Dir
    Wend
    
End Sub

 
Sub snb()
 For Each fl In CreateObject("scripting.filesystemobject").getfolder("H:\SAFETY\FORMS\ 300 & 300A\2011").Files
  fl.Name = Replace(fl.Name, "_2010", "_2011")
 Next
End Sub