X marks the spot

Dim cell as Range, rng as Range
Dim ct as Long, msg as String
for each cell in Range("F2:F300")
set rng = cell.offset(0,1).Resize(6)
ct = Application.countif(rng,"x")
if ct > 0 then
msg = msg & cell.Value & " - " & ct & vbNewLine
end if
Next

msgbox msg

--
Regards,
Tom Ogilvy

"Optitron" <Optitron.1vme2g_1127156777.5631@excelforum-nospam.com> wrote in
message news:Optitron.1vme2g_1127156777.5631@excelforum-nospam.com...
>
> I have a list of tools in column F. Column G, H, I, J, K, and L
> represent each toolbox. If I put an X in column G, that represents that
> that tool (column F) in box one (column G) is broken. Now, I need a
> macro to compile a list of every tool that is broken (has an X in
> Column G, H, I, J, K, or L).
>
>
> --
> Optitron
> ------------------------------------------------------------------------
> Optitron's Profile:
http://www.excelforum.com/member.php...o&userid=26729
> View this thread: http://www.excelforum.com/showthread...hreadid=468910
>