Fotmelding 1004

[tonp60]

Hallo,

Ik heb de onderstaande code gebruikt om bedragen in een cel met de opmaak valuta te verhogen met 5%. Dit gebeurt dan op alle aanwezige sheets.

Sub Verhoging()
  For Each sh In Sheets
    For Each cl In sh.UsedRange.SpecialCells(2, 1)
      cl.Value = cl.Value * 1.05
    Next cl
  Next sh
End Sub

Nu gebruik ik dezelfde code in een ander bestand en krijg de foutmelding 1004. Wat gaat er nu precies fout?

Groet,
Ton

 

[snb]

Er is een werkblad dat geen getallen bevat.

Achter Next hoef je niets te zetten de VBA-compiler is slim genoeg.

 

[tonp60]

Klopt helemaal. Dank je wel.