"Michel Pierron" wrote in
:

Hi Erik,
Try:

With CreateObject("Microsoft.XMLHTTP")
.Open "GET", Worksheets("Mellemregninger").Range("B13"), False
.Send
S = .ResponseText
End With

Hi Michel

This worked fine Thanks!

KR,
Erik