Changing File Names in Excel Folder

 
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