Macro to add text to a cell in another workbook which may already contain text

[dori2o]

Hi,

I'm trying to create a tool which will allow common phrases/responses which are listed in a spreadsheet to be copied to a cell in another worksheet.

I have buttons at the side of the phrases/responses and my intention was to simply press the button and this would copy the text across.

It works fine when you are using just one response, the text copies over just fine, but there are certain circumstances where I might need to use 2 or more of these common responses at the same time, and when I tried to copy/paste more than 1 I got a debug error or nothng at all happened and the only text in the cell being pasted to was the original text copied into it.

I hope that makes sense. Any advice much appreciated.

[meabrams]

would it be possible for you to post macro so that we can see what I causing the error

[dori2o]

Hi, this is the macro

Sub Macro1()
'
' Macro1 Macro
'

'
Range("A1").Select
Selection.Copy
Windows("XXXXXv5 2.xlsm").Activate
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
Sub Macro2()
'
' Macro2 Macro
'

'
Range("A1").Select
Selection.Copy
Windows("XXXXXv5 2.xlsm").Activate
Range("C4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub

I've just tried re-doing the macro so this is the most recent one.

Just retried and I get no error now, but if I was to select button 1(macro1) it would paste into the required cell, then if I select button 2 (macro2) it erases whats in the cell and replaces it with the text copied for macro2

[dori2o]

OK, a bit of research and I've come up with this

Sub Macro9()

'Application.ScreenUpdating = False


Text = Range("A3")
Windows("XXXXX v5 2.xlsm").Activate

Dim i As Range
Range(Range("C4"), Range("C4").End(xlDown)).Select

For Each i In Selection
i.Value = Text & i.Value
Next i

End Sub

Now I get the following error

Run-time error '1004'

The cell or chart you're trying to change is on a protected sheer.

To make changes, click Unprotect Sheet in the Review tab (you might need a password)

The worksheet being posted to is protected, but the cell being posted to in this worksheet is not.

The text now does copy to the cell and it doesn't remove the text already in there, the only problem now is this error which is a little annoying.

Other than removing the protection from the sheet is there anything else I can do?

Thanks all.

[dori2o]

Any help appreciated