VBA for maximum value in a column

[General Ledger]

I am looking for VBA that will return the largest value in a column. I don't know which column the values are in but I do know the label of the column. I have this much code which does not work. I think all that is needed is the argument for the Max() function.

    AsOfDate = Rows("1:1").Find(What:="Date").Column.Max()

Thanks,

GL

 

[Jonmo1]

Try

AsOfDate = Rows("1:1").Find(What:="Date").Column
MaxVal = Application.Max(Columns(AsOfDate))

 

[General Ledger]

jonmo1,

Once again, a perfect solution.

Thank you,

GL