A select case statement may be what you want. You didn't say what you really
wanted. Why can't people say what they mean?

--
Don Guillett
SalesAid Software

"Lori" wrote in message
...
I understand how this works but what I want to happen is if my cell "a1"
equals a certain value to then place "Test Co" in my footer if "a1" equals
a
different value to place "Test Co 2" in the footer instead, I just want
the
name put in the footer I don't need the contents of the cell in it as
well.
Is that possible to place Text based on a certain value?

"Don Guillett" wrote:


try
sht.PageSetup.CenterFooter = "Test Co"&range("a1")

--
Don Guillett
SalesAid Software

"Lori" wrote in message
...
I have a macro set up as follows

Public WithEvents App As Application


Private Sub App_WorkbookBeforePrint(ByVal Wb As Workbook, Cancel As
Boolean)
CoName = InputBox("Division Name", "Add Division Name to Footer")
Dim finalstring As String
With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = ""
.RightHeader = ""
.LeftFooter = ""
.CenterFooter = ""
.RightFooter = ""
finalstring = "&8" & CoName
End With
For Each sht In ActiveWorkbook.Sheets
sht.PageSetup.RightFooter = finalstring
sht.PageSetup.CenterFooter = "&8" & "Unaudited - For Management
Purposes
Only"
Next sht
End Sub

Which this works by bringing up the Input box before I print to insert
the
division I am running in the footer, but would like it to automatically
place
the division name in the footer based on a formula. For instance
CoName =
if
cell (a1) = 1 then "TestCo1" if (a1) =2 then "TestCo2" as an example.
I
guess I don't know how to make it apply my named based on a condition
or
formula.
I hope that makes sense but if you could help me automate this I would
appreciate it

Thanks