Why type mismatch - R/T error 13

[Jim May]

I was/am trying to assist a previous OP (you'll possibly see it below) -
anyhow
my code at present is bombing at the last line presented below:
Any assistance appreciated..

Sub Tester()
Dim CurrDate As Date
Dim Nxtrow As Long
Dim TargRange As Range
CurrDate = Sheets("CallerInput").Range("B29")
Set TargRange = Worksheets("Infoloader").UsedRange.Columns(1)
For Each c In TargRange
If c.Value = CurrDate Then <<<<<<<<< Bomb !!

 

[Dave Peterson]

Try being more explicit:

For Each c In TargRange
becomes
For Each c In TargRange.Cells

And .usedrange.columns(1) may be column A. I think the OP wants to check column
B.

(And don't forget to "dim C as range" <vbg>.)

 

[Dave Peterson]

ps. before you do that change, try adding
msgbox c.address

and you'll see why it blows up. Trying not to give it away. That type of range
doesn't have a .value.

 

[Jim May]

Thanks Dave for the help.
Before your ps note (below) I had already modified code so unable to try
"msgbox c.address" suggestion. Now realize how any "For each" needs
".cells" on end of a set rng. I'm getting there - thanks to guys like
you...
Jim May

 

[Dave Peterson]

It doesn't always need it. But if you want to cycle through the cells, it never
huts to add it.

Thanks Dave for the help.
Before your ps note (below) I had already modified code so unable to try
"msgbox c.address" suggestion. Now realize how any "For each" needs
".cells" on end of a set rng. I'm getting there - thanks to guys like
you...
Jim May

 

[Jim May]

Dave thanks you for the response; I actually understood what
you were saying as I read your words << this is a rarity - for me.
appreciate you,
Jim

As i read your