Do this
in the Projects window go to ThisWorkbook. under the sheetchange event write

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) " this part is generated for you
if selection.row = X (where x is the row number that activates the change) the
" your code here
end i
End Su


----- Frank Kabel wrote: ----

H
you may use an event procedure for this. See the following site fo
more details (in your case the worksheet_change event should do)
http://www.cpearson.com/excel/events.ht

-
Regard
Frank Kabe
Frankfurt, German


i have a worksheet that shows worktimes for employees, the cells ar
grey, when you enter the employees time or "shift" and press a butto
that executes my macro, it changes the colour of the "shift" to whit
to show the time scale that the employee is working. the macro run
fine, the problem is that to run the macro i have to click a button
is there a way of running the macro, or executing the code when
enter the employees "shift" of time. or is this not possible
this is the code i am using at the minute for it to run when i clic
on a button
Private Function ShadeCells(
Dim rng As Range, cell As Rang
Range("D8:AJ106").Interior.ColorIndex = 1
Set rng = Range("B8:AJ106"
For Each cell In rn
Cells.ShrinkToFit = Tru
Select Case cell.tex
Case "6~10
Range("D" & cell.row).Resize(1, 8).Interior.ColorIndex =
Case "6~11
Range("D" & cell.row).Resize(1, 10).Interior.ColorIndex =
Case "6~12
Range("D" & cell.row).Resize(1, 12).Interior.ColorIndex =
Case "6~3
Range("D" & cell.row).Resize(1, 18).Interior.ColorIndex =
Case "7~4
Range("F" & cell.row).Resize(1, 18).Interior.ColorIndex =
Case "E
Range("I" & cell.row).Resize(1, 18).Interior.ColorIndex =
Case "8~5
Range("H" & cell.row).Resize(1, 18).Interior.ColorIndex =
Case "8.30~5.30
Range("I" & cell.row).Resize(1, 18).Interior.ColorIndex =
Case "9~6
Range("J" & cell.row).Resize(1, 18).Interior.ColorIndex =
End Selec
Next cel
End Functio
thanks in advance for anything
--
Message posted from http://www.ExcelForum.com