Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
     (ByVal hwnd As Long _
    , ByVal lpOperation As String _
    , ByVal lpFile As String _
    , ByVal lpParameters As String _
    , ByVal lpDirectory As String _
    , ByVal nShowCmd As Long) As Long
Const SW_SHOWNORMAL =  1 

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)

   Dim str1 As String, str2 As String
   Dim a As Variant

    str2 = "\\Server\Images"

    If InStr( 1 , ActiveCell.Value, str2, vbTextCompare) Then

    a = Split(Replace(ActiveCell.Value, ",", "")) ' will split on whitespace
        For Each v In a
            processID = Shell("c:\windows\system32\rundll32.exe C:\WINDOWS\system32\shimgvw.dll,ImageView_Fullscreen " & v)

    Next v
    Else

    End If

End Sub