I have a situation where I am trying to write a macro for work to handl
printing our schedules. We have a program that ouputs our dail
schedules in excel format, and I have written a macro that cleans i
up, sorts it, and color codes it.

The problem is that now I am looking to make it a better tool for th
less computer savvy members in my department. The macro is saved in
document called "Day-at-a-Glance Macro.xls" and contains instructions
as well as some individual table for customizing. One of thes
contains some employee names and the department they work in. Anothe
contains the color coding.

The macro is designed to work by opening both the macro document, an
the schedule data document, so the user can run the macro in the dat
document. I have been unable to loop through information in the macr
document for use in the data document.

Here is the code as I have it so far:

Dim wbkPth As String
wbkPth = "'[Day-at-a-Glance Macro.xls]Sheet1'!"
range(wbkPth & "D18").Activate
Do
row = ActiveCell.row
Call addDpt(first:=range(wbkPth & "D" & row).Value
last:=range(wbkPth & "E" & row).Value, dept:=range(wbkPth & "F"
row).Value)
ActiveCell.Offset(1, 0).Select
Loop Unti
IsEmpty(Excel.Workbooks(1).Worksheets(1).ActiveCel l.Offset(0, 1))

Can anyone help? Thank you very much :o)
-Nic

--
Message posted from http://www.ExcelForum.com