define end column in a range

  • Thread starter Thread starter Chris Perry
  • Start date Start date
C

Chris Perry

I would like to accomplish two things in vb code:
1) create a variable that defines the last column of a
given range (i.e. lastcol = ?).
2) Then use the variable as part of a selected range (i.e.
Range("A1:lastcol")
 
One way, among many:

If the variable rng is set to your given range:

Dim lastCol as Integer
LastCol = rng(rng.Count).Column

To use (again, one among many):

Dim newRange As Range
Set newRange = Range("A1").Resize(1, lastCol)

or
Dim newRange As Range
Set newRange = Range(Cells(1, 1), Cells(1, lastCol))
 
Back
Top