Reply to thread

Message: [QUOTE="Max, post: 3872213"] The sub below, placed in a regular module & assigned to a forms button: "Place Name" in Main seems to do the job** adequately <g>. Implemented sample at: [URL]http://www.savefile.com/files/5389671[/URL] Schedule_Posting.xls Sub PlaceName() Dim rng As Range, code As Variant Application.ScreenUpdating = False code = Worksheets(1).Range("e8") Set rng = Worksheets(2).Range("b4:b77") For i = 1 To rng.Count If rng.Cells(i).Value = code Then rng.Cells(i).Offset(0, 2) = Worksheets(1).Range("c8") End If Next i Worksheets(1).Activate MsgBox "Name placed in Schedules" Application.ScreenUpdating = True End Sub [/QUOTE]