A family of Microsoft spreadsheet software with tools for analyzing, charting, and communicating data.
PayerRainville,
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim ss as String
If Target.Address = "$B$1" Then
Application.ScreenUpdating = False
ss = Range("A5").Value ' A5 holds the text string "Object1"
Sheets("Attachments").OLEObjects(ss).Verb
Me.Activate
Application.ScreenUpdating = True
End If
End Sub
--
Regards,
Tom Ogilvy