activeCell.Offset(1,0).Select

--
Regards,
Tom Ogilvy

"Dan" wrote in message
...
I would like to create a macro that can be attached to a button on Sheet2
that when clicked will cause the Active row in Sheet 1 to advance by 1.

Thanks in advance - Dan

Hi Tom
I think the OP wanted to change the active cell on a different sheet
than the current active sheet - whatever reason he has for this :-)

--
Regards
Frank Kabel
Frankfurt, Germany


Tom Ogilvy wrote:
activeCell.Offset(1,0).Select


"Dan" wrote in message
...
I would like to create a macro that can be attached to a button on
Sheet2
that when clicked will cause the Active row in Sheet 1 to advance by
1.

Thanks in advance - Dan

I believe you are correct Frank, thanks for the heads up

Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Worksheets("Sheet1").Activate
ActiveCell.Offset(1, 0).Select
Worksheets("Sheet2").Activate
Application.ScreenUpdating = True

End Sub

--
Regards,
Tom Ogilvy


"Frank Kabel" wrote in message
...
Hi Tom
I think the OP wanted to change the active cell on a different sheet
than the current active sheet - whatever reason he has for this :-)

--
Regards
Frank Kabel
Frankfurt, Germany


Tom Ogilvy wrote:
activeCell.Offset(1,0).Select


"Dan" wrote in message
...
I would like to create a macro that can be attached to a button on
Sheet2
that when clicked will cause the Active row in Sheet 1 to advance by
1.

Thanks in advance - Dan