VBA Else statement in MACRO

[Livin404]

Greetings,

I have a basic MACRO that inserts a header. I think I would need an "Else" statement that if a "0" is in Cell A1 on Sheet "Settings" I need the header to be "DEPARTURES (ZULU)" any other integer in A1 in Sheet "Settings" the original text described below is fine. The active sheet is named Schedule though I can't see what difference that would make.

Sub Header2()
        
    ActiveSheet.PageSetup.CenterHeader = _
        "&""Times New Roman,Bold""&20 DEPARTURES (LOCAL) "
        End Sub

Thank you very much indeed.

 

[Michael M]

MAybe this

Sub Header2()
If Cells(1, 1) = "0" Then
    ActiveSheet.PageSetup.CenterHeader = "&""Times New Roman,Bold""&20 DEPARTURES (ZULU)"
Else
    ActiveSheet.PageSetup.CenterHeader = "&""Times New Roman,Bold""&20 DEPARTURES (LOCAL) "
End If
 End Sub

 

[Livin404]

MAybe this

Sub Header2()
If Cells(1, 1) = "0" Then
    ActiveSheet.PageSetup.CenterHeader = "&""Times New Roman,Bold""&20 DEPARTURES (ZULU)"
Else
    ActiveSheet.PageSetup.CenterHeader = "&""Times New Roman,Bold""&20 DEPARTURES (LOCAL) "
End If
 End Sub

The Cell (1,1) is on a different worksheet. The active sheet is named “Schedule”, and the sheet where the integer is located is named “Settings”.

Thank you

 

[Michael M]

OK...try

Sub Header2()
If Sheets("Settings").Cells(1, 1) = "0" Then
    ActiveSheet.PageSetup.CenterHeader = "&""Times New Roman,Bold""&20 DEPARTURES (ZULU)"
Else
    ActiveSheet.PageSetup.CenterHeader = "&""Times New Roman,Bold""&20 DEPARTURES (LOCAL) "
End If
 End Sub

 

[Livin404]

OK...try

Sub Header2()
If Sheets("Settings").Cells(1, 1) = "0" Then
    ActiveSheet.PageSetup.CenterHeader = "&""Times New Roman,Bold""&20 DEPARTURES (ZULU)"
Else
    ActiveSheet.PageSetup.CenterHeader = "&""Times New Roman,Bold""&20 DEPARTURES (LOCAL) "
End If
 End Sub

Thank you; I can’t check now, but I’m sure it will work. You’ve help me before and you’re pretty solid. Thank you.

 

[Michael M]

Glad to help...