Application.Goto Reference:=Worksheets("Charging").Range("B" & Newrow)
--
Gary''s Student - gsnu200823


"Jock" wrote:

I use VBA to copy data from a row on 'Post' to the next blank row on
'Charging'.
What can I add to my code to:
A) open 'Charging' on screen and then
B) get cell B on the row which has just been copied to 'Charging' to have
focus?

Code below:
Sub Charge()

If ActiveCell.Value = "CH" Then
RowNo = ActiveCell.Row
With Sheets("Charging")
Lastrow = .Range("B" & Rows.Count).End(xlUp).Row
Newrow = Lastrow + 1
End With
Sheets("Charging").Range("B" & Newrow).Value = _
Sheets("Post").Range("B" & RowNo)
Sheets("Charging").Range("C" & Newrow).Value = _
Sheets("Post").Range("E" & RowNo)
etc. etc.
End If
End Sub
--
Traa Dy Liooar

Jock