how can i increase the progress bar value based on the code?

[anilg0001]

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

[zbor]

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