Fejl i Select

Runtime error 1004 betyder populært sagt bare, at programmet ikke forstår sine instrukser og derfor standser.

Koden må indeholde noget med at vælge et bestemt regnark. Findes dette regneark i den projektmappe, som du kører koden i? Og er det stavet på nøjagtig samme måde, både i den virkelige verden og i koden?

Sæt evt. din kode ind her.

Jeg tror der er tale om en generet bug i mit regnerark

Dette har virket upåklageligt længe :

Public Sub NulstilBalance()
Dim WS As Worksheet

For Each WS In Worksheets
   
    WS.Select
       
    ActiveSheet.Unprotect
        Range("G6").Value = 0
    ActiveSheet.Protect
   
    Next WS

    Sheets(1).Select
    Range("A1").Select

MsgBox "Alle balancesaldi er nulstillet i denne kontogruppe", , "Nulstil Balance"

End Sub

Test lige den her istedet:

Public Sub NulstilBalance()
    Dim WS As Worksheet

    For Each WS In Worksheets
        WS.Unprotect
        WS.Range("G6").Value = 0
        WS.Protect
    Next WS
    Sheets(1).Select
    Range("A1").Select

    MsgBox "Alle balancesaldi er nulstillet i denne kontogruppe", , "Nulstil Balance"

End Sub

det kunne være et skjult ark som er årsag

Jeg havde nær sagt, ... som sædvanlig er det bak, som finder guldet :o)

Læg venligst svar

takker, og er ellers enig med excelent... :-)