put this macro in your personal.xls file and attach it to a keyboard
shortcut or toolbar button.
Public Sub InsertSheetToRight()
If ActiveWindow.SelectedSheets.Count > 1 Then
MsgBox _
"This function does not work with multiple sheets selected"
Else
Worksheets.Add After:=Sheets(ActiveSheet.Index)
End If
End Sub
If you're not familiar with macros, see David McRitchie's "Getting
Started with Macros":