LinkBack URL
About LinkBacks
Sub hyperlinkaddress()
Dim ProgressBar1
Dim h As Hyperlink
For Each h In ActiveSheet.Hyperlinks
h.Range.Offset(, 1) = h.address
Next
UserForm1.Show
ProgressBar1.Value = cellpossition
End Sub
how can i increase the progress bar value based on the code?
Sub hyperlinkaddress()
Dim ProgressBar1
Dim h As Hyperlink
For Each h In ActiveSheet.Hyperlinks
h.Range.Offset(, 1) = h.address
Next
UserForm1.Show
ProgressBar1.Value = cellpossition
End Sub
Your post does not comply with Rule 3 of our Forum RULES. Use code tags around code.
Posting code between [CODE]Please [url=https://www.excelforum.com/login.php]Login or Register [/url] to view this content.[/CODE] tags makes your code much easier to read and copy for testing, it also maintains VBA formatting.
Highlight your code and click the # icon at the top of your post window. More information about these and other tags can be found here
Never use Merged Cells in Excel
There are currently 1 users browsing this thread. (0 members and 1 guests)
Posting Permissions
Register To Reply
Bookmarks