VBA - button to move to another sheet to same cell

[baz0912]

Hi, I'm trying to create a button on 2 sheets so when I click the button, it will move to that sheet with the same cell reference, i.e. cell A30 on sheet 1 will move to A30 on sheet 2 and vice versa. Any help would be much appreciated.

Thanks
Harry

[royUK]

Try

Application.Goto Sheet1.Cells(30, 1)

[sweep]

Or try this if you want the button to select on the other sheet, the cell you have selected on the first sheet

Sub changesheet()
Dim newcell
newcell = ActiveCell.Address
If ActiveSheet.Name = "Sheet1" Then Sheets("Sheet2").Activate Else Sheets("Sheet1").Activate
Range(newcell).Select
End Sub

[baz0912]

Thanks very much for your help - Works a treat!