1. Rt-click the sheet tab - view code to take you into the sheet module

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, _
           Cancel As Boolean)

   If Target.Address = "$B$5" Then Range("W23").Select
End Sub

2.
In a normal module

Sub PictureInsert()
Dim sFileFilter As String, sTitle As String, sAddr As String
Dim vFile

   On Error Resume Next
   sAddr = ActiveCell.Address(0, 0)
   On Error GoTo 0

   If Len(sAddr) = 0 Then
       MsgBox "First select cell in which to insert picture"
       Exit Sub
   End If

   sFileFilter = "Picture files, *.bmp;*.jpg;*.gif"
   sTitle = "Browse to Picture file to insert in cell : " & sAddr

   vFile = Application.GetOpenFilename(sFileFilter, sTitle)

   If Not vFile = False Then
       ActiveSheet.Pictures.Insert vFile
   End If

End Sub

Regards,
Peter T