I need to enter the text "The End" at the end of the worksheet in column B.
I am using ActiveCell.SpecialCells(xlLastCell).Select to find the last cell
in the worksheet. Currently that is cell F379, on my next report the column
may change. Whatever column the last cell turns out to be, I need to enter
"The End" in the last row of Column B. Is there VBA code to goto column B in
the current row?
Thank you
L

There are several ways, this would be an easy one:
Range("B" & ActiveCell.Row) = "The End"

and if you want to avoid using the .Select method (a good idea to improve
speed) then try this:
Range("B" & ActiveCell.SpecialCells(xlLastCell).Row) = "The End"
--
Charles Chickering

"A good example is twice the value of good advice."


"LilacSpokane" wrote:

> I need to enter the text "The End" at the end of the worksheet in column B.
> I am using ActiveCell.SpecialCells(xlLastCell).Select to find the last cell
> in the worksheet. Currently that is cell F379, on my next report the column
> may change. Whatever column the last cell turns out to be, I need to enter
> "The End" in the last row of Column B. Is there VBA code to goto column B in
> the current row?
> Thank you
> L

xlLastCell is not always accurate and generally speaking you don't want to
use it. Try something like this...

Sub test()
Cells(LastRow, "B").Value = "The End"
End Sub

Public Function LastRow(Optional ByVal wks As Worksheet) As Long

If wks Is Nothing Then Set wks = ActiveSheet
On Error Resume Next
LastRow = wks.Cells.Find(What:="*", _
After:=wks.Range("A1"), _
Lookat:=xlPart, _
LookIn:=xlFormulas, _
SearchOrder:=xlByRows, _
SearchDirection:=xlPrevious, _
MatchCase:=False).Row
If LastRow = 0 Then LastRow = 1

End Function
--
HTH...

Jim Thomlinson


"LilacSpokane" wrote:

> I need to enter the text "The End" at the end of the worksheet in column B.
> I am using ActiveCell.SpecialCells(xlLastCell).Select to find the last cell
> in the worksheet. Currently that is cell F379, on my next report the column
> may change. Whatever column the last cell turns out to be, I need to enter
> "The End" in the last row of Column B. Is there VBA code to goto column B in
> the current row?
> Thank you
> L