Den er måske ikke den kønneste løsning, men den virker:
Sub Film()
Dim strFilm As String
Range("a1").Select
strFilm = Range("a1")
Range("b1").Select
ActiveCell.FormulaR1C1 = "
http://www.imdb.com/title/tt" & strFilm & "/"
Selection.Hyperlinks(1).Address = "
http://www.imdb.com/title/tt" & strFilm & "/"
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
Range("a1").Select
End Sub
Du kan indtaste dine tal (eks. 0073195) i celle A1 og tryk på den knap du lægger koden på, så skulle den meget gerne åbne et vindue med den valgte film.