Add format to VBA

I would like to have Column A & E formatted as date, Columns B, C, General, F-K as Currency, and A-K as Comic Sans MS 16

[CODE]Dim WS1 As Worksheet, WS4 As Worksheet
Dim LastRow As Long
Dim rngCopy As Range, rngSpecialPaste As Range

Set WS1 = Worksheets("Invoice")
Set WS4 = Worksheets("Jan_21")

With WS4

LastRow = .Cells(Rows.Count, 1).End(xlUp).Row
.Range("K9:K" & LastRow).Formula = "=SUM(F9:J9)"
.Cells(LastRow + 1, 1).Resize(1, 4).Value = Array(WS1.Range("E3"), WS1.Range("E5"), WS1.Range("E4"), Range("InvTot"))
End With

With ActiveSheet
Set rngCopy = .Range(.Range("A9:C9"), .Cells(1, Columns.Count).End(xlToLeft))
Set rngPaste = .Range(.Range("A10:C10"), .Cells(Rows.Count, 1).End(xlUp)).Resize(, rngCopy.Columns.Count)
End With
CODE]

I would like to have Column A & E formatted as date, Columns B, C, General, F-K as Currency, and A-K as Comic Sans MS 16

Record a macro while you format the columns as you require them. Copy the recorded code into your current macro.

Thanks so much

You're welcome.



If you are satisfied with the solution(s) provided, please mark your thread as Solved.


New quick method:
Select Thread Tools-> Mark thread as Solved. To undo, select Thread Tools-> Mark thread as Unsolved.

Or you can use this way:

How to mark a thread Solved
Go to the first post
Click edit
Click Go Advanced
Just below the word Title you will see a dropdown with the word No prefix.
Change to Solved
Click Save


You may also want to consider thanking those people who helped you by clicking on the little star at the bottom left of their reply to your question.