HI, i have a problem with a worksheet_change event that i am trying t
put together and was wondering if anyone could help me.
This is what i have at the moment.
VB:
--------------------------------------------------------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
' Hide operations from the user
Application.ScreenUpdating = False
Sheets("workers").Select
Range("D3").Select
Range(Selection, Selection.End(xlDown)).Select
ActiveWorkbook.Names.Add Name:="worker_code", RefersToR1C1:= _
"=Workers!R3C4:R14C4"
Range("D2").Select
--------------------------------------------------------------------------------
what i want it to do is rename a range of cells with data in them.
But i dont know how to make the line which says
VB:
--------------------------------------------------------------------------------
ActiveWorkbook.Names.Add Name:="worker_code", RefersToR1C1:= _
"=Workers!R3C4:R14C4"
--------------------------------------------------------------------------------
do the same procedure as while re-naming that range.
VB:
--------------------------------------------------------------------------------
Range(Selection, Selection.End(xlDown)).Select
--------------------------------------------------------------------------------
I hope i have given you enough information to help you understand m
problem. Please any help would be greatly appreciated
--
Message posted from
http://www.ExcelForum.com