Re: for/each followhyperlink address

From: David McRitchie (dmcritchie_at_msn.com)
Date: 03/13/04 

Date: Fri, 12 Mar 2004 21:49:06 -0500

Hi Don,
I have an example to play all the .WAV files on my system
from a work***. It uses a column for selection/rejection/terminate
   Fun Stuff
   http://www.mvps.org/dmcritchie/excel/funstuff.htm 

---
HTH,
David McRitchie, Microsoft MVP - Excel    [site changed  Nov. 2001]
My Excel Pages:  http://www.mvps.org/dmcritchie/excel/excel.htm
Search Page:        http://www.mvps.org/dmcritchie/excel/search.htm
"Don Guillett" <donaldb@281.com> wrote in message news:enll$LGCEHA.3848@TK2MSFTNGP11.phx.gbl...
> Posted yesterday on the L list with no response so trying here.
>
> Not much to do today so listening to some music. xl2002.
> I use something similar to this to play .mp3's from a double click event
> using the typed name of the file. Now, I want to be lazy and have it play
> more than one selection in a for/each loop. As usual it will play the
> selection but when the song is finished I am still at wmp.
>
> The question is how do I play the next song in the selection?  TIA
>
>       C:\GordonLightfoot2\Gordon Lightfoot - Seven Island Suite.mp3
>       C:\GordonLightfoot3\Gordon Lightfoot - Shadows.mp3
>       C:\GordonLightfoot2\Gordon Lightfoot - She's Not The Same.mp3
>
> Sub playselections()
> For Each c In Selection
> mc = Cells(c.Row, "e")
> x = Right(Application.OperatingSystem, 4)
> If x < 5 Then
>   cmd = "Start " & Chr(34) & mc & Chr(34)
>   Shell cmd 'works with xl97
> Else
>   Dim FullFileName As String
>   FullFileName = mc
>   ActiveWorkbook.FollowHyperlink Address:=FullFileName
> End If
> Next c 'song
> End Sub
>
>
> -- 
> Don Guillett
> SalesAid Software
> donaldb@281.com
>
>
>