vba fill in blank cells with a value

[dshafique]

Hey guys, I needed some help in figuring out a way to loop a certain function in excel.
I have a table with 4 columns, and what I want to do is fill in all the blanks with "Not given"
I was going about it by manually filtering each column for blanks, and filling them with "not given" however, after the second column when I tried filtering the last column, there weren't any blanks. typically it would be alright, but this is going to be a template for future reports so there might be blanks in that column

i wanted something like the pseudo code:

IF no blanks, then do nothing, else filter for blanks, and fill cells with "Not Given"

any and all resolve would be greatly appreciated!

 

[CalcSux78]

Function FillTable(ByRef rTable As Range)
'Example on using function within VBA:
'Call FillTable(Range("Table2"))
Dim cel As Range


For Each cel In rTable.Cells
    If IsEmpty(cel) Then cel.Value = "Not given"
Next cel
End Function

 

[dshafique]

Sory for the late reply, but thank you! worked well