Help with paste values format in VBA code

[im2bz2p345]

Hi everyone,

I was wondering if you could help me with something basic/small.

I have this set of code in a worksheet.

If Not rFound Is Nothing Then
      rFound.Offset(0, 1).Copy
      wTarget.Range(sTargetCol & lRow).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
              SkipBlanks:=False, Transpose:=False
       Set rFound = Nothing
    End If

What I am trying to do is instead of a PasteSpecial, pasting the value but in a specific font, font size, etc.

Do you know how I can adjust this code? Would something like this be needed:

       Selection.wTarget.Range(sTargetCol & lRow)
       With wTarget.Range(sTargetCol & lRow).Font
        .FontStyle = "Regular"
        .Name = "Arial"
        .Size = "8"
       .Strikethrough = False
       .Superscript = False
       .Subscript = False
       .OutlineFont = False
       .Shadow = False
       .Underline = xlUnderlineStyleNone
       .ColorIndex = xlAutomatic
       End With

Do I need to specify all the False statements or do I not need them in my code?

I'm not really sure on the proper syntax of how to write this, so I thought it would be best to ask on here.

Appreciate it!

~ Im2bz2p345

 

[Dryver14]

Just tried this little bit of code

Sub BoldIt()

Range("A1").Select
With Selection.Font
    .Size = 14
    .Bold = True
End With
End Sub