Fejl i nummer

Dim rCell As Range
    Dim bFound As Boolean
   
    bFound = False
    For Each rCell In ActiveSheet.Column(1).Cells
        If Trim(rCell.Value) = cbVarenummer.Text Then
            bFound = True
            Exit For
        End If
    Next rCell
    If Not bFound Then MsgBox "Værdi ikke fundet i kolonne A", vbInformation + vbOKOnly, "Systeminformation"

Tak, men der er ikke tale om det aktive ark, men om Ark Status - Hvad er det nu jeg skal ændre?

For Each rCell In ActiveSheet.Column(1).Cells

ændres til

For Each rCell In Sheets("Status").Column(1).Cells

Jeg får en fejl:

"Object doesn't support this property or method" i

For Each rCell In Sheets("Status").Column(1).Cells

Makroen køres fra en formular - Kan det være årsagen?

smartoffice_dk> Jeg har været ved at se må min makro.
Jeg tror ikke rigtig det hænger sammen!

Det du er ved at hjælpe mig med er en del af en anden makro, så jeg tror jeg skal have en hvis-sætning ind;

HVIS Varenummer ikke findes SÅ
  MsgBox...
ELLERS
  Resten af min makro...

Så vidt jeg kan se, så vil afspilningen af makroen fortsætte hvis jeg ikke har hvis-sætningen!? Eller kan man lave en STOP-sætning?

Har ikke fået foreslået løsning til at virke, så jeg har funde en anden løsning.
Lukker spørgsmålet!