Bryan
I assumed that the names in sheet 1 are in Column A starting in A2. I
assumed that sheet 2 is named "Two". I assumed that the active cell is in
the row, in sheet 1, that has the name, in Column A, that you want to jump
to in sheet Two. I assumed that the names are in sheet 2 in Row 1 starting
with cell A1. I gather that you want to place a button in sheet 1 to make
this happen. Assign the following macro to that button. Note that the
names in Column A of sheet1 must match EXACTLY the names in Row 1 of sheet
"Two". HTH Otto
Sub JumpShade()
Dim TheName As String
Dim Sht2Row1 As Range
Application.ScreenUpdating = False
TheName = Cells(ActiveCell.Row, 1).Value
Sheets("Two").Select
Set Sht2Row1 = Range("A1", Cells(1, Columns.Count).End(xlToLeft))
Cells.Interior.ColorIndex = xlNone
Sht2Row1.Find(What:=TheName, Lookat:=xlWhole) _
.EntireColumn.Interior.ColorIndex = 15
Application.ScreenUpdating = True
End Sub
wrote in message
...
I have a 3 sheet workbook. Sheet1 has names etc, sheet2 has the same
names with other data. If on sheet1 I click on jump, it will jump to
that name on sheet2. What I want to try and do is this. When I jump I
would like that whole column to be grey, enter my data then return to
sheet1. Then if I jump on another name then that column to be grey.
Hopefully when I jumped the first time and it greyed out, when I
returned to sheet1 it went back to white. It would be easier to enter
data in the grey cell without maybe using another cell by mistake.

Thanks for any help I may get.