Thank you Dave.
Perfect.
Was so slow, yet so far from it.


"Dave Peterson" wrote in message
...
Private Sub UserForm_Activate()
TextBox4.Value _
= application.max(Sheets("Data Sheet for Inspections").range("a:A"))
End Sub

Corey wrote:

I am setting up a userform with numerous textboxes.
I want to set 1 of the textboxes to always display the MAX value in
Column A
in a particular sheet within the workbook.
How would i code this?

I want it to be in the Userform Activate event.
I have tried something like:

Private Sub UserForm_Activate()
TextBox4.Value = Sheets("Data Sheet for Inspections").MAX(0, x).Value
End Sub

But it no working....

Any idea's

Corey....

--

Dave Peterson