Private Sub Article_Click()
Sheets("Articles").Select
Label3.Caption = Application.VLookup(Article, [Articles!A1:C65000], 3, False)
End Sub
Private Sub CommandButton1_Click()
Range("F" & [F65000].End(3).Row + 1) = Application.VLookup(Article, [Articles!A1:C65000], 3, False)
End Sub