VBA Formula to paste cell value into active cell then change it's color and add an underline

[prisonmike]

I am very new to VBA so I apologize in advance if this question and code is a bit amateurish.

The code I currently have is

Function CUSTOMSTYLE(TargetCell As Range)
TargetCell.Copy
ActiveCell.PasteSpecial (xlPasteValues)
ActiveCell.Font.Color = RGB(255, 0, 0)
ActiveCell.Font.Underline = xlUnderlineStyleSingle
End Function

Basically, I want to be able to take the value in any cell and reformat it in the cell I am currently working in.

Any thoughts?

 

[prisonmike]

I am very new to VBA so I apologize in advance if this question and code is a bit amateurish.

The code I currently have is

Function CUSTOMSTYLE(TargetCell As Range)
TargetCell.Copy
ActiveCell.PasteSpecial (xlPasteValues)
ActiveCell.Font.Color = RGB(255, 0, 0)
ActiveCell.Font.Underline = xlUnderlineStyleSingle
End Function

Basically, I want to be able to take the value in any cell and reformat it in the cell I am currently working in.

Any thoughts?

The problem I am having is that it does not paste in the value from the target cell and does not add an underline. It does, however, change the color.