ボタンで指定URLをIEで開く

Dim Up_url As String
Up_url = Sheets("setting").Range("b39").Value
On Error GoTo err1
Sheets("work").Activate
Range("a100").Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=Up_url, TextToDisplay:=Up_url
Range("a100").Select
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True