Sub Right_Sheet()
If ActiveSheet.Index = Sheets.Count Then Exit Sub ' to test if the active sheet is the righmost sheet
sheetname = Sheets(ActiveSheet.Index + 1).Name ' Name of sheet which is in right hand side of active sheet
Sheets(ActiveSheet.Index + 1).Activate ' to activate the sheet which is in right hand side of active sheet
End Sub
I don't know why, but I always avoid using Error handlers