macros

If I have a macro that copies A1 and pastes it into b1, how can I change the
macro to paste it into any selected cell?

Hi HOHN,

Try one of these...

Sub S_Copy()
ActiveCell.Value = Range("A1").Value
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Target.Value = Range("A1").Value
End Sub

Where you will have to activate the S_Copy() macro with a button or such and
the Selection_Change macro will copy A1 th the cell you click on.

HTH
Regards,
Howard

"JOHN" wrote in message
...
If I have a macro that copies A1 and pastes it into b1, how can I change
the
macro to paste it into any selected cell?

And I apologize for the misspelling of your name!

Howard

"JOHN" wrote in message
...
If I have a macro that copies A1 and pastes it into b1, how can I change
the
macro to paste it into any selected cell?

Thank you Howard for your time and imput.

My father always said..."Call me by any name, Just never call me late for
dinner....
Thanks again for your help.

"L. Howard Kittle" wrote:

And I apologize for the misspelling of your name!

Howard

"JOHN" wrote in message
...
If I have a macro that copies A1 and pastes it into b1, how can I change
the
macro to paste it into any selected cell?

This is a copy of the macro, where do I put in your suggested changes?
I am coping row 5, columns A:V and pasting them into cj3. I want to change
CJ3 to any selected cell.

Sub JOHN()
'
' JOHN Macro
''
Range("A5:V5").Select
Selection.Copy
Range("CJ3").Select
ActiveSheet.Paste

"L. Howard Kittle" wrote:

Hi HOHN,

Try one of these...

Sub S_Copy()
ActiveCell.Value = Range("A1").Value
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Target.Value = Range("A1").Value
End Sub

Where you will have to activate the S_Copy() macro with a button or such and
the Selection_Change macro will copy A1 th the cell you click on.

HTH
Regards,
Howard

"JOHN" wrote in message
...
If I have a macro that copies A1 and pastes it into b1, how can I change
the
macro to paste it into any selected cell?