Formula in Macro

[nc]

Using I would like to make a value of a cell equal to a Excel function of a
range.

Example:

Sheet 1 Cell A1 = Sheet 2 max of range (A:A)

 

[Don Guillett]

bSub formulamacro()
Range("m1").Value = Application.Max(Sheets("sheet2").Columns(1))
Range("m2").Formula = "=max(sheet2!a:a)"
End Sub

 

[nc]

Don

Thanks a lot for your help.

bSub formulamacro()
Range("m1").Value = Application.Max(Sheets("sheet2").Columns(1))
Range("m2").Formula = "=max(sheet2!a:a)"
End Sub


--
Don Guillett
Microsoft MVP Excel
SalesAid Software
(e-mail address removed)