Improve company productivity with a Business Account.Sign Up
Public Sub MaxInCol()
Dim dMaxVal As Double
' simple version if you just want the whole column
dMaxVal = Application.WorksheetFunction.Max(Range("B:B"))
' more complicated to limit to certain data
Dim rngDataStart As Range
Dim rngDataEnd As Range
Set rngDataStart = Range("B2")
' find the last cell with data in col B
Set rngDataEnd = Cells(ActiveSheet.Rows.Count, 2).End(xlUp)
dMaxVal = Application.WorksheetFunction.Max(Range(rngDataStart, rngDataEnd))
Open in new window
ZipGrep is a utility that can list and search zip (.war, .ear, .jar, etc) archives for text patterns, without the need to extract the archive's contents.
One of a set of tools we're offering as a way to say thank you for being a part of the community.
Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.
Have a better answer? Share it in a comment.
Please enter a first name
Please enter a last name
Must be at least 4 characters long.
Join and Comment
From novice to tech pro — start learning today.
Premium members can enroll in this course at no extra cost.