read cell content and use with Hyperlinks.Add Cell

In ThisWorkBook:

Private Sub Workbook_BeforePrint(Cancel As Boolean) 
  For j = 4 To Sheets("DVD lijssie").[a4].End(xlDown).Row 
    With Sheets("DVD lijssie").Cells(j, 1) 
      If .Hyperlinks.Count = 0 And .Value <> "" Then 
         Sheets("DVD lijssie").Hyperlinks.Add Cells(j, 1), "http://www.imdb.com/find?s=all&q=" & .Value 
         With .Font 
           .Name = "Arial Narrow" 
           .Size = 8 
         End With 
      End If 
    End With 
  Next 
End Sub 


Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) 
  For j = 4 To Sheets("DVD lijssie").[a4].End(xlDown).Row 
    With Sheets("DVD lijssie").Cells(j, 1) 
      If .Hyperlinks.Count = 0 And .Value <> "" Then 
         Sheets("DVD lijssie").Hyperlinks.Add Cells(j, 1), "http://www.imdb.com/find?s=all&q=" & .Value 
         With .Font 
           .Name = "Arial Narrow" 
           .Size = 8 
         End With 
      End If 
    End With 
  Next 
End Sub

No more on Worksheet_Change because to much to many times, I think I'll use another CheckBox to somehow call/start the function.