How to count last column of data

[crapit]

Using excel VBa, I can count last row of data using lastrow =
Worksheets("Spare2").Cells(Rows.count, 1).End(xlUp).row
But how to use it for column?

 

[Ardus Petus]

lastcol=Worksheets("Spare2").cells(rows.count,1).end(xltoleft).column

HTH

 

[Bob Phillips]

Worksheets("Spare2").Cells(1,Columns.count).End(xlToLeft).Column

for the last column in the first row

--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

 

[crapit]

didnt work

lastcol=Worksheets("Spare2").cells(rows.count,1).end(xltoleft).column

HTH

 

[crapit]

IT works!

Worksheets("Spare2").Cells(1,Columns.count).End(xlToLeft).Column

for the last column in the first row

--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

 

[Ardus Petus]

Typed too fast!

didnt work

 

[crapit]

But how doI get the actual column "R" value?

Worksheets("Spare2").Cells(1,Columns.count).End(xlToLeft).Column

for the last column in the first row

--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

 

[Bob Phillips]

myVal = Worksheets("Spare2").Cells(1,Columns.count).End(xlToLeft)

--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)