#### realniceguy5000

##### Board Regular

- Joined
- Aug 19, 2008

- Messages
- 148

Here is what I came up with so far but I am stuck.

Thanks for any help

Code:

```
Sub ColumnChecks()
colcount = 1
With Sheets(1)
Lrow1 = .Cells(Rows.Count, 1).End(xlUp).Row
Lcol1 = .Cells(1, 256).End(xlToLeft).Column
For x = Lrow1 To 2 Step -1
For y = 1 To Lcol1
'.Cells(x, y).Select
Set c = .Cells(x, y)
With Sheets(2)
.Select
Set cfind = .Columns(1).Cells.Find(what:=c.Value, lookat:=xlWhole)
'not sure what now as I found the row on the 2 sheet but have to loop through values on the first sheet and loop
' through this row on the 2nd sheet
End With
Next y
Next x
End With
End Sub
```