Hi Claus,

I was able to make it work "the loop way" with this.
(some slight name differences etc. from my test sheet)


But your array is for sure a more solid code, and works well!
Thanks,

Howard

Sub Column_Check_OneRng()

Dim rngB As Range
Dim OneRng As Range
Dim shtTo As Worksheet
Dim shtNme As String

Application.ScreenUpdating = False

Set OneRng = Sheets("Bid log").Range("A2:A" & Cells(Rows.Count, "A").End(xlUp).Row)

For Each rngB In OneRng

If rngB.Offset(, 3) = "Bidding" Then

If Not rngB.Offset(, 7) Is Nothing Then
Set shtTo = Worksheets(rngB.Offset(, 7).Value)
shtTo.Range("B" & Rows.Count).End(xlUp)(2) = rngB
End If

End If

Next

Application.ScreenUpdating = True

End Sub