Compileerfout

[jpvs]

Heb veschillende macro's waar telkens .Count een error geeft?

Compileerfout : Kan de methode of het gegevenslid niet vinden.

op " .Count "

Sub TabbladRechtsInvoegen()
' Find how many sheets are in the workbook
'Vind hoeveel tabbladeren er zijn in een map
Dim No_Sheets
No_Sheets = Sheets.Count
' Add a new sheet
'Voegt een nieuw tabblad toe
Sheets.Add
' The new sheet is the active sheet.  Move it to after the last Sheet
'Het nieuwe tabblad is het actieve blad. Breng het achter het laatste blad
ActiveSheet.Move after:=Sheets(No_Sheets + 1)
End Sub

Sub ShAchterInvoegen()
On Error Resume Next
    Dim x As Integer
    x = Sheets.Count
    Sheets.Add after:=Sheets(x)
End Sub

Is hier een oplossing voor te vinden?

Pierre

 

[Wigi]

Beide macro's werken perfect bij mij...

 

[leofact]

Bij mij werken ze ook prima
Het enige wat ik kan bedenken is sheets vervangen door worksheets, misschien dat dan het dan wel goed bij je gaat.
mvg leo

 

[jpvs]

Als ik de 2 macro's gebruik in een nieuw werkmap dan werken ze.


Maar als ik ze in mijn Persnlk map zet krijg ik de ERROR's ?

en Sheets vervangen door Worksheets dit werkt prima.:thumb:

Bedankt Leo.

P.