macro werkt niet meer

[Rens80]

Hoi,

Ik gebruik onderstaande macro om de waarden weg te schrijven in de eerstvolgende lege cel in het bereik. Als ik deze nu uitvoer krijg ik een foutmelding en wordt de regel 'If not c is nothing then' geel gemarkeerd in de VBA. Weet iemand wat er misgaat?

Private Sub CommandButton23_Click()
On Error Resume Next 'doorgaan bij fouten
       Set C = ActiveSheet.Range("bv20:bv27").SpecialCells(xlCellTypeBlanks).Cells(1)   '1e lege cel in dat bereik
       On Error GoTo 0
       If Not C Is Nothing Then                      'zo'n cel gevonden
          C.Value = "bonus 1"  'naam wegschrijven"
          C.Offset(, 5).Value = "5000"   'bedrag wegschrijven"
          C.Offset(1, 0).Value = "bonus 2"   'bedrag wegschrijven"
          C.Offset(1, 5).Value = "5000"   'bedrag wegschrijven"
          C.Offset(2, 0).Value = "bonus 3"   'bedrag wegschrijven"
          C.Offset(2, 5).Value = "5000"   'bedrag wegschrijven"
          C.Offset(3, 0).Value = "bonus 4"   'bedrag wegschrijven"
          C.Offset(3, 5).Value = "5000"   'bedrag wegschrijven"
          C.Offset(4, 0).Value = "bonus 5"   'bedrag wegschrijven"
          C.Offset(4, 5).Value = "5000"   'bedrag wegschrijven"
       Else
          MsgBox "er zijn geen lege cellen meer in dat bereik", vbCritical   'foutje bedankt
       End If
End Sub

 

[Haije]

En hoe luidt de foutmelding?

 

[snb]

De fout zit in het onhandig gestruktureerde werkblad, niet in de onhandig gestruktureerde code.
Plaats dat werkblad hier.