Add additional value to a cell

  • Thread starter Thread starter Rasmus
  • Start date Start date
R

Rasmus

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
 
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.
 
Ooops!
Should be:
ActiveWorkbook.Sheets("Sheet1").Range("A1").Value = _
ActiveWorkbook.Sheets("Sheet1").Range("A1").Value & ": English"

HTH
Henry
 
Back
Top