Sub FormatRange()
With Worksheets("Ark1").Cells(DestinationRow, 1)
.Value = AssignDate
.Font.Bold = True
.Interior.Color = RGB(255, 255, 0)
....
....
End With
End Sub
-----Original Message-----
Is it possible to format a cell using VBA code?

My code include the following.

DatabaseWorksheet.Cells(DestinationRow, 1).Value =
AssignDate

At the time this code is executed the cell is not
formatted. How would I modify this code so that, in
addition to being populated with AssignDate, borders and
a pattern would be added?

Thanks.


Kevin
.