Column Count

[Jameo]

Hi all,

So to count the number of rows in my sheet I would use:
LRow = Sheets("Pressures").Range("A" & Rows.Count).End(xlUp).Row


How would I count the number of columns in the same sheet?

Thanks for the help

 

[VoG]

Try

LCol = Sheets("Pressures").Cells(1, Columns.Count).End(xlToLeft).Column

 

[Richard Schollar]

Find is always useful:

Dim rLastCol As Range
 
Set rLastCol = Activesheet.Cells.Find(What:="*",Lookin:=xlFormulas,LookAt:=xlWhole,SearchOrder:=xlByColumns,SearchDirection:=xlPrevious)
 
MsgBox "Your last column is " & rLastCol.Column

 

[Jameo]

Thanks guys,

Much obliged