Dim LastCol as long

with worksheets("Sheet1")
lastcol = .cells(.rows.count,"A").end(xlup).row
msgbox .cells(lastrow,"A").value
end with

I used column A.

hawk wrote:

Want to use a macro to find the last entry in a colum that can change every
time its run.
Any ideas or sample code appreciated
Roger

--

Dave Peterson