Putting dashes next to word to fill up space

[angiemeh]

Is there a Quick key comination that puts dashes next to a word to fill up the space for formatting purposes

- For example if I have three cells that I merge and then put the title 'Business Reveiw' in the cell and then center it, is there a way to put dashes before and after so that they are spaced without having to type them in? See Below

-----Business Review-----

 

[ADAMC]

Hi try a macro....?

Sub adddashes()
Dim WB As Workbook
Dim SH As Worksheet
Dim Rng As Range

Set WB = Workbooks("SAMPLE.xls") '<<==== CHANGE
Set SH = WB.Sheets("Sheet1") '<<==== CHANGE
Set Rng = SH.Range("A:AZ") '<<==== CHANGE

Rng.Replace What:="business review", _
Replacement:="---Business Review---", _
LookAt:=xlPart, _
SearchOrder:=xlByRows, _
MatchCase:=False
End Sub

This looks at SAMPLE.XLS
Sheet 1
range A:AZ and changes business review to ---business review---
It isnt case sensitive so will work whether upper or lower case or even both.

Hope it helps....

PS you can tailor the word it looks for and the word it is changed to if need be.