Solución 7.16 Crear una portada de acceso a varios libros

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal  
Target As Range)  
  Dim strDireccion As String  
  strDireccion = Selection.Address  
  Select ...