Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Value = "b" And _
     Target.Column = 2 And _
     Cells(Target.Row, 1) <> "" Then
       Workbooks.Open ("b" & Cells(Target.Row, 1) & ".xlt")
  End If
End Sub