Ofsetting Cell by 1, 0 vba

[rohan8510]

hi, i have this code but every time it says compile error, could you please help many thanks




Range("A25").Select
Selection.End(xlUp).Select
selection.Offset(1, 0)

[Yongle]

'Using your code
Range("A25 ").Select
Selection.End(xlUp).Select
Selection.Offset(1, 0).Select

'Same but neater
Range("A25 ").Select
Selection.End(xlUp).Offset(1,0).Select

'I use message boxes frequently as I build unfamiliar code
'This might be overkill here but shows exactly where cursor is going etc
'Message boxes can tell you a huge amount
Range("A25 ").Select
MsgBox "1 Now at " & ActiveCell.Address
Selection.End(xlUp).Select
MsgBox "2 Now at " & ActiveCell.Address
Selection.Offset(1, 0).Select
MsgBox "3 Now at " & ActiveCell.Address

[rohan8510]

Thanks so much Yongle it was really helpful :)

[jolivanes]

Re: Same but neater????

Range("A25").End(xlUp).Offset(1).Select
Selecting however should not be required but we need to see the rest of the code.