Simple (if you know how) VB code help !!

redspanna · Jul 2, 2008

Hi all,

I have this code that deletes the last populated cell

Code:

With Worksheets("Data")
        .Range("A65536").End(xlUp).Clear

what I would also like is for the cleared cell then to be reformatted using font Verdana size 8

any help appreciated, thanks

njimack · Jul 2, 2008

You could have recorded a macro to see how it's done...

Code:

With Sheets("Data").Range("A" & Rows.Count).End(xlUp)
.Clear
.Font.Name = "Verdana"
.Font.Size = 8
End With

redspanna · Jul 2, 2008

Hi Nick,

Thanks for your help with this.
I did record the action as a macro before posting, but the code I got back didn't work for me ...

Code:

With Selection.Font
        .Name = "Verdana"
        .Size = 8
       
    End With

..I wasn't sure how to link it to my exsisting code

Anyway, no worries as works just fine - thanks again