find the last used column

crmpicco · May 18th, 2005, 04:49 AM

I am looking for code that will find the last used column. In other words, the last column (left - to - right) that has a value in it.

Thanks.

Picco

www.crmpicco.co.uk
www.crmpicco.co.uk.tt
www.milklemonadechocolate.uk.tt
www.griswolds.uk.tt
www.piccosmini.co.uk.tt
www.morton.uk.tt

crmpicco · May 20th, 2005, 06:44 AM

Solution:

Code:

Sub Last_Find()
    Dim Last As Long
    Last = Cells.Find("*", SearchOrder:=xlByColumns, _
    LookIn:=xlValues, SearchDirection:=xlPrevious).Column
    MsgBox Last
End Sub

www.crmpicco.co.uk
www.crmpicco.co.uk.tt
www.milklemonadechocolate.uk.tt
www.griswolds.uk.tt
www.piccosmini.co.uk.tt
www.morton.uk.tt

mjppaba · May 20th, 2005, 08:14 AM

if you have a particular row in mind...

myCol = Range("IV1").End(xlToLeft).Column

will do it!

Matt