Select activecell.row to last columns

[Blunder1]

Hi,

I'm struggling to select a range from B to the last column on a row. I have the below code but cant get it to work. I know this is simple but i just cant get it.

Thanks in advance

Blunder

lc = Range("IV3").End(xlToLeft).Columns
r = ActiveCell.Row
Range("b" & r & ":" & lc & r).Select

 

[VoG]

Try

Dim lc As Long, r As Long
r = ActiveCell.Row
lc = Cells(r, Columns.Count).End(xlToLeft).Column
Range(Cells(r, 2), Cells(r, lc)).Select

 

[Jonmo1]

Try

Range(Cells(r, "B"), Cells(r, lc))


Note, that if you qualify the sheet, you must do it on Range AND both Cells

Like
Sheets("Sheet1").Range(Sheets("Sheet1").Cells(r, "B"), Sheets("Sheet1").Cells(r, lc))


Hope that helps.

 

[Blunder1]

Excellent stuff, thank you for your help