Sub AddEnglish()
Range("A1").Value = Trim(Range("A1")) & " English"
End sub

Sub AddSpanish()
Range("A1").Value = Trim(Range("A1")) & ", Spanish"
End Sub

Sub AddFrench()
Range("A1").Value = Trim(Range("A1")) & ", French"
End Sub

and so forth.


Rasmus wrote in message
le.rogers.com...
Has anyone got a quick fix for this:

A1 has a value of "Subtitles:"

I'd like to make three macro's that, when run individually, ADDS their
value
to A1.

Ie.

Macro 1 inserts the value "English"
Macro 2 inserts the value ", Spanish"
Macro 3 inserts the value ", French"

So if I run macro 1, A1 will then contain the value "Subtitles:English"
Then if I run macro 2, A1 will then contain the value "Subtitles:English,
Spanish"

I need to add maybe 10 different subtitle languages, so it must be a macro
that adds the additional subtitle to the cell.

Any ideas ?

Rasmus