ndthanh/ConvertToHyperlinks.bas

## ConvertToHyperlinks.bas
Sub ConvertToHyperlinks()
  Dim Rng As Range
  Dim WorkRng As Range
  On Error Resume Next
  xTitleId = "Hoc Excel Online"
  Set WorkRng = Application.Selection
  Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
  For Each Rng In WorkRng
      Application.ActiveSheet.Hyperlinks.Add Rng, Rng.Value
  Next
End Sub
	Sub ConvertToHyperlinks()
	Dim Rng As Range
	Dim WorkRng As Range
	On Error Resume Next
	xTitleId = "Hoc Excel Online"
	Set WorkRng = Application.Selection
	Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
	For Each Rng In WorkRng
	Application.ActiveSheet.Hyperlinks.Add Rng, Rng.Value
	Next
	End Sub
No results found