Error in .SelectedItems during File Picking

Hello Guys,

I am trying to save a file path in a variable using .SelectedItems but the code is showing "Runtime Error 450". Kindly help me by rectifying the mistake in the code. Thanks in Advance :)

Sub pickafile()

Dim x As FileDialog
Dim y As Variant

Set x = Application.FileDialog(msoFileDialogFilePicker)

x.Filters.Add "Images", "*.jpg,*.jpeg"
x.Show

y = x.SelectedItems

ActiveSheet.Pictures.Insert(y).Select


End Sub