Range function causing runtime error 13 type mismatch

[vba317]

I am getting this error when the code gets to this section. Any help is appreciated.

Tom

If Range("M9:M" & intLastRow) = "Y" Then
        Else
            Selection.ClearContents
     End If

 

[zelgar]

Try changing intLastRow to Str(intLastRow)
Otherwise, try
r$ = ("M9:M" & intLastRow
If Range(r$) = "Y" Then

 

[vba317]

After looking at the issue a little closer I realized the error of my ways. I changed the code to:

For Each h In Worksheets("ClientProcessing").Range("K9:K" & intLastRow)
        If h.Value <> "Y" Then h.Offset(0, 0) = ""
Next

 

[SkipVought]

For Each h In Worksheets("ClientProcessing").Range("K9:K" & intLastRow)
  With h
     If .Value <> "Y" Then .ClearContents
  End With
Next

Skip,

_{Just traded in my old subtlety...
for a NUANCE!}