On 17 Nov, 18:21, "Otto Moehrbach"
wrote:
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 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.- Hide quoted text -

- Show quoted text -

Ummm not exactly. I haven't explained it well at now I read your
reply. On sheet1 which is called Home the names are from A6 down to
A255 on sheet2 which is called A the names go from E6 to IT6.