How to replace this sentence https://www.casio.com/jp/ with the content of H13 cell in all worksheets
https://www.casio.com/jp/ (new), https://www.hitachi.co.jp/ (old)
Any help would be appreciated!
How to replace this sentence https://www.casio.com/jp/ with the content of H13 cell in all worksheets
https://www.casio.com/jp/ (new), https://www.hitachi.co.jp/ (old)
Any help would be appreciated!
Last edited by Sakurayuki; 05-20-2021 at 08:09 AM.
Please try
Sub hy() Dim s As Worksheet, k As Hyperlink For Each s In ThisWorkbook.Sheets For Each k In s.Hyperlinks If k.Address = "https://www.hitachi.co.jp/" Then k.Address = "https://www.casio.com/jp/" k.TextToDisplay = "https://www.casio.com/jp/" End If Next Next End Sub
Sub J3v16() Dim ws As Worksheet For Each ws In ThisWorkbook.Sheets With ws .Cells.Replace what:="https://www.hitachi.co.jp/", Replacement:="https://www.casio.com/jp/", _ LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, _ SearchFormat:=False, ReplaceFormat:=False End With Next ws End Sub
Good Luck
I don't presume to know what I am doing, however, just like you, I too started somewhere...
One-day, One-problem at a time!!!
If you feel I have helped, please click on the star to left of post [Add Reputation]
Also....add a comment if you like!!!!
And remember...Mark Thread as Solved.
Excel Forum Rocks!!!
Excellent solution. Thank you both, thank you very much for the solution.
.........................
Thanks.png
There are currently 1 users browsing this thread. (0 members and 1 guests)
Bookmarks