Sub pre()
On Error goto errorhandler
ActiveSheet.Previous.Select
exit sub
errorhandler:
msgbox "Yer already on the first worksheet!"
End Sub
Sub Nxt()
On Error goto errorhandler
ActiveSheet.next.Select
exit sub
errorhandler:
msgbox "Yer already on the last worksheet!"
End Sub