Solved: cell activate

[av8tordude]

I have this code that select the last cell empty in a column, but I only want to limit the range between B11:B250. Can someone assist. Thanks in advance.

Cells(Range("B250").End(xlUp).Row + 1, 2).Activate

[GTO]

Maybe:


Sub example1()
Dim Cell As Range

With Range("B11:B250")
Set Cell = .Find("*", .Cells(1), xlValues, xlWhole, xlByColumns, xlPrevious)
If Not Cell Is Nothing Then
Cell.Offset(1).Select
Else
.Cells(1).Select
End If
End With
End Sub

Hope that helps,

Mark

[av8tordude]

GTO...It works great. With sincere gratitude...Thank you :friends: