Sure! Just use the InputBox function in the Workbook_Open event of the
ThisWorkbook object, like so:

Option Explicit
Public strFooter As String

Private Sub Workbook_Open()
strFooter = InputBox("Please enter the footer:")
End Sub


Regards,
Wes