Wy get a and error
CompileError:
can find the method or the fact member?

Sub TabbladRechtsInvoegen()
' Find how many sheets are in the workbook
Dim No_Sheets
No_Sheets = Sheets.Count
' Add a new sheet
Sheets.Add
' The new sheet is the active sheet. Move it to after the last Sheet
ActiveSheet.Move After:=Sheets(No_Sheets + 1)
End Sub

JP