play around with the single quote

Sub playfiles()
Dim PlayFile
PlayFile = Shell("'C:\Program Files\Winamp\winamp.exe C:\MP3\" &
ActiveCell.Value & "'", 1)
End Sub

--
Regards,
Tom Ogilvy



"Phil1982" wrote:

> Thank you to colonal18 and Gary's Student, through combining your advice I'v
> managed to come up with this code which opens the file who's name is in the
> current cell and opens it with the application I want.
>
> Sub playfiles()
> Dim PlayFile
> PlayFile = Shell("C:\Program Files\Winamp\winamp.exe C:\MP3\" &
> ActiveCell.Value, 1)
> End Sub
>
> The only problem is it doesn't work on files with more than one word in
> their name. If the cell I have selected has a file with 2 words in its name
> e.g. Happy Birthday.mp3 - it opens WinAmp and treats it as if it was being
> asked to open 2 files(one called Happy, one called Birthday) neither of which
> exist.
>
> The obvious (and impractical) way around this is to manually rename every
> file with underscores_instead_of spaces.
>
> Does anyone know a better solution?
>
>
> Thanks
>
> Phil