Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Public Sub Dothis()
- HostFolder = "C:Test"
- Set FileSystem = CreateObject("Scripting.FileSystemObject")
- DoFolder FileSystem.GetFolder(HostFolder)
- End Sub
- Sub DoFolder(Folder)
- Dim SubFolder
- For Each SubFolder In Folder.SubFolders
- DoFolder SubFolder
- Next
- Dim File
- For Each File In Folder.Files
- UpdateFirst
- Next
- End Sub
- Public Function UpdateFirst()
- y = "Texana"
- x = "Texas"
- For Each WS In Worksheets
- WS.Columns(1).Replace What:=y, Replacement:=x, LookAt:=xlPart, MatchCase:=False
- Next
- End Function
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement