Adding borders around formula values

[Majawat]

The F column has this following code:

=IF(ISERROR(VLOOKUP(A7,Beers,2,FALSE)),"",IF(VLOOKUP(A7,Beers,2,FALSE)=0,"",VLOOKUP(A7,Beers,2,FALSE)))

I need a VBA script that only creates a border around those cells that evaulate to a value and not ""

This is the code I've tried:

    Dim LastRating
    LastRating = Cells(Cells.Rows.Count, "A").End(xlUp).Row
 
    On Error Resume Next
    Range("F4:F" & LastRating).SpecialCells(xlNumbers).Select
 
    Selection.Borders(xlEdgeLeft).LineStyle = xlContinuous
    Selection.Borders(xlEdgeTop).LineStyle = xlContinuous
    Selection.Borders(xlEdgeBottom).LineStyle = xlContinuous
    Selection.Borders(xlEdgeRight).LineStyle = xlContinuous
    Selection.Borders(xlInsideHorizontal).LineStyle = xlContinuous

This doesn't border around anything at all. When I use SpecialCells(xlFormulas) it border around everything.

The values that the VLOOKUP should possibly evaluate to are "", 1-10 if that helps. I'll gladly provide any more information as necessary.

Any help would be greatly appreciated!

Also, I know I could do the formatting with a much more elegant With statement, but for other reasons, I'd prefer not to.

 

[VoG]

Try

Dim LastRating As Long, c As Range
LastRating = Cells(Cells.Rows.Count, "A").End(xlUp).Row

For Each c In Range("F4:F" & LastRating).SpecialCells(xlCellTypeFormulas)
    If c.Value <> "" Then
        c.Borders(xlEdgeLeft).LineStyle = xlContinuous
        c.Borders(xlEdgeTop).LineStyle = xlContinuous
        c.Borders(xlEdgeBottom).LineStyle = xlContinuous
        c.Borders(xlEdgeRight).LineStyle = xlContinuous
        c.Borders(xlInsideHorizontal).LineStyle = xlContinuous
End If
Next c

 

[Majawat]

Actually, VoG, that did the opposite of what I needed, so I swapped "<>" for "=" and it works perfectly. Thank you very much!