Help with adapting a macro

[tigger6333]

Greetings!

I have created a macro that copies a tick in cell O2 into cell D2.

How do I adjust the macro so that it copies the tick into whatever cell I select?

My recorded macro looks like this:


Sub Add_A_Tick()
'
' Add_A_Tick Macro
'
' Keyboard Shortcut: Ctrl+t
'
Range("O2").Select
Application.CutCopyMode = False
Selection.Copy
Range("D2").Select
ActiveSheet.Paste
With Selection.Font
.ThemeColor = xlThemeColorLight1
.TintAndShade = 0
End With
End Sub


Thanks in advance
tigger

 

[Datsmart]

If your "tick" is always in cell "O2":

Sub Add_A_Tick()
' Add_A_Tick Macro
' Keyboard Shortcut: Ctrl+t
Range("O2").Copy Selection
    With Selection.Font
        .ThemeColor = xlThemeColorLight1
        .TintAndShade = 0
    End With
End Sub

This will paste the value of cell "O2" to the active cell on your worksheet.

 

[tigger6333]

Hey Datsmart

Thanks very much for your reply.
Just what I was trying to find out how to do.

Cheers
tigger