microsoft.public.word.vba.general

You might do better asking Excel questions in an Excel forum - this one is
for Word.

--
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
Graham Mayor - Word MVP

My web site www.gmayor.com
Word MVP web site http://word.mvps.org
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>


Brian A wrote:
> I recorded a macro which sorts a column of dates selects the first
> date and the end date and runs the Days360 excel function and divides
> that by 7 to get the number fo weeks. I am trying to modify this
> macro because when I recorded the macro it selected the exact cell of
> that particular data set. However, each data set may have a different
> cell as the second date. So now I have figured out how to select the
> last cell but I cant firgure out how to put this in my Days360
> function. I have pasted my code below. This code is giving me an
> error. Plus it needs to be cleaned up because I have alot of useless
> mouse clicks.
>
> Rows("1:1").Select
> Selection.Insert Shift:=xlDown
> Selection.Delete Shift:=xlUp
> Cells.Select
> Selection.Sort Key1:=Range("F2"), Order1:=xlAscending,
> Header:=xlGuess, _ OrderCustom:=1, MatchCase:=False,
> Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal
> Rows("1:1").Select
> Selection.Insert Shift:=xlDown
> Range("F1").Select
> ActiveCell.FormulaR1C1 = Application.Days360(Range(ActiveCell,
> ActiveCell.End(xlDown)).Select) / 7
> Range("F1").Select
> Selection.NumberFormat = "0"
> ActiveWorkbook.Save