Fill blank cells with a specific value using VBA

[SkywardPalm]

I'm trying to figure out how to populate blank cells in a range with the text "blank" along with an incremental number next to it to distinguish each blank value. I'm getting an error during the debug with the cell.Value... line. Any suggestions for how to go about this?

    Dim CurrentRange, BlankCount
    With ActiveWorkbook.Worksheets("Current")
    LastRowCurrent = .Cells(.Rows.Count, "A").End(xlUp).Row
    CurrentRange = Range("C1:C" & LastRowCurrent)
    BlankCount = 1
    End With

   For Each cell In CurrentRange
        If IsEmpty(cell) Then
        cell.Value = "blank(" & BlankCount & ")"
            BlankCount = BlankCount + 1
   End If
   Next cell

 

[offthelip]

you need to set currentrange to the range like this:

    Set CurrentRange = Range("C1:C" & LastRowCurrent)

otherwise it defaults to variant array