Find Last Blank Row Find Last Blank Column

[nehpets12]

To find the nect blank cell in column A I use the code

Sub Find_Next_Row()
i = Range("A65536").End(xlUp).Row
Range("A" & i).Offset(1, 0).Select
End Sub

Is there code like this I can use to find the next blank column in row 1

 

[Scott Huish]

It's not generally necessary to select cells in order to work with them, so you may not need to Select them at all, but to answer your question, something like this:

Range("IV1").End(xlToLeft).Offset(, 1).Select

 

[Krishnakumar]

Hi,

Cells(1, Columns.Count).End(xlToLeft).Offset(, 1).Select

HTH

 

[nehpets12]

Thank You