I'm sorry. I changed Sub FullPathFooter() into Private Sub Workbook_beforePrint(cancel As Boolean) and it works. Thanx