Excel 2010 VBA, If-else, met foutmelding, reden onbekend

[tijmen_4real]

Hoi,

In een sheet wil ik de waarde van een cel gebruiken om de 'voorraad' in een cel op een andere sheet aan te passen.
Als er bij de afboeking 0 staat in de cel, is de waarde dan ook 0 van de voorraad (afgeboekt).
Anders boekt de sub de waarde van de cel af van de laatste voorraad:

Sub IntroAfboeken()
Dim row As Integer
row = 2
Dim myValue As String
Do While (Worksheets("Voorraad compleet").Range("B" & row).Value <> "")
    If Worksheets("Voorraad compleet").Range("B" & row).Value <> "" Then
        myValue = Worksheets("Voorraad compleet").Range("B" & row).Value
    End If
row = row + 1
Loop
Dim lst As Long
With Sheets("Bestellingsoverzicht")
    lst = Worksheets("Voorraad compleet").Range("B" & Rows.Count).End(xlUp).row + 1
    If Range("B16").Value = 0 Then
    Worksheets("Voorraad compleet").Range("B" & lst).Value = 0
    Else
    Worksheets("Voorraad compleet").Range("B" & lst).Value = myValue - Range("B16").Value
    Worksheets("Voorraad compleet").Range("B" & lst).Font.Size = 9
    End If
End With
Call VoorraadIntro
End Sub

Nu krijg ik een 1004-foutmelding op Worksheets("Voorraad compleet").Range("B" & lst).Value = 0
Ik heb geen idee waarom?

Wie kan/wil mij hier alsjeblieft mee helpen?
Bestand posten is moeilijk, nogal wat gevoelige informatie. Wellicht na aanpassingen.

Groet,

Tijmen

 

[edmoor]

Dan haal je de gevoelige informatie er toch uit?

Is de bladnaam wel correct?
Worksheets("Voorraad compleet")

We zien wel vaker bladnamen met een spatie er achter: