Keyboard shortcut for switching through worksheets

Hello!

I need keyboard shortcut for switching through worksheets.

For now, I have this VBA macro and shortcut Ctrl+R:

Sub next_sheet()
'
' next_sheet Macro
'
' Keyboard Shortcut: Ctrl+r
'
ActiveSheet.Next.Select

End Sub

But, there is a problem: when i am on the last sheet, and want to go to the first, there is Error.

Any suggestions?

Thanks in advance.

Sinke