Advertisement
Guest User

Untitled

a guest
Mar 20th, 2019
43
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.54 KB | None | 0 0
  1. Public Sub Dothis()
  2.  
  3. HostFolder = "C:Test"
  4.  
  5. Set FileSystem = CreateObject("Scripting.FileSystemObject")
  6. DoFolder FileSystem.GetFolder(HostFolder)
  7.  
  8.  
  9. End Sub
  10.  
  11. Sub DoFolder(Folder)
  12. Dim SubFolder
  13. For Each SubFolder In Folder.SubFolders
  14. DoFolder SubFolder
  15. Next
  16. Dim File
  17. For Each File In Folder.Files
  18. UpdateFirst
  19. Next
  20. End Sub
  21.  
  22. Public Function UpdateFirst()
  23.  
  24. y = "Texana"
  25. x = "Texas"
  26.  
  27. For Each WS In Worksheets
  28. WS.Columns(1).Replace What:=y, Replacement:=x, LookAt:=xlPart, MatchCase:=False
  29. Next
  30. End Function
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement