Maurice
The following macro will select the sheet and then select Row 6 of that
sheet. You said you wanted row 6 "highlighted". I don't know what you
meant by that so I just selected row 6. Come back if this is not what you
want.
As written, the managers names are "Mgr 1", "Mgr 2", "Mgr 3" and they are in
Column A of the Master sheet starting with A2 down.
The associated sheets are named "One", "Two", "Three". Change these as
needed and add to the list in the code as needed. You can have as many
managers as you want and you can have as many sheets applying to the same
manager as you want. Be aware that the managers' names in Column A of the
Master sheet must match EXACTLY the names that you have in this macro.
Also, the sheet names in this macro and the actual sheet names must match
EXACTLY. If the sheet name in the macro doesn't match that of an actual
sheet, you will get an error. If the Managers name doesn't match, you will
get a message box telling you that there is no sheet associated with that
manager.
Note that this macro is a sheet event macro and must be placed in the sheet
module of the Master sheet. To access that module, right-click on the sheet
tab and select View Code. Paste this macro into that module. "X" out of
the module to return to your sheet. HTH Otto
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim rMgrs As Range
Dim TheSht As String
If Target.Count > 1 Then Exit Sub
Set rMgrs = Range("A2", Range("A" & Rows.Count).End(xlUp))
If Not Intersect(Target, rMgrs) Is Nothing Then
Select Case Target.Value
Case "Mgr 1": TheSht = "One"
Case "Mgr 2": TheSht = "Two"
Case "Mgr 3": TheSht = "Three"
Case Else: GoTo NoSht
End Select
Sheets(TheSht).Select
ActiveSheet.Rows("6:6").Select
Exit Sub
NoSht:
MsgBox "There is no sheet associated with Manager " & Target.Value & "."
End If
End Sub