Hello,

I'm trying to have a macro that will automatically print the file name, tab,
and date at the bottom of each page in each sheet in the workbook.

Thanks in advance for your help!


Dim wksht As Worksheet

For Each wksht In Worksheet

With ActiveSheet.PageSetup
.LeftFooter = "&6&F &A &D"
.FooterMargin = Application.InchesToPoints(0.25)
Next
End Sub

Change to:

Dim wksht As Worksheet

For Each wksht In Worksheet

With wksht.PageSetup '<====error was here
.LeftFooter = "&6&F &A &D"
.FooterMargin = Application.InchesToPoints(0.25)
Next
End Sub


"DTTODGG" <(E-Mail Removed)> wrote in message
news:16EBBDB6-6EDC-4A75-880E-(E-Mail Removed)...
> Hello,
>
> I'm trying to have a macro that will automatically print the file name,
> tab,
> and date at the bottom of each page in each sheet in the workbook.
>
> Thanks in advance for your help!
>
>
> Dim wksht As Worksheet
>
> For Each wksht In Worksheet
>
> With ActiveSheet.PageSetup
> .LeftFooter = "&6&F &A &D"
> .FooterMargin = Application.InchesToPoints(0.25)
> Next
> End Sub

Thanks Bob, that makes sense. I'm really new to this and need every detail
explained.

Does the For/Next require something?
I'm getting an error. I don't know how many sheets there might be.
So, do I need to activate a sheet before the next loop?



"Bob Umlas" wrote:

> Change to:
>
> Dim wksht As Worksheet
>
> For Each wksht In Worksheet
>
> With wksht.PageSetup '<====error was here
> .LeftFooter = "&6&F &A &D"
> .FooterMargin = Application.InchesToPoints(0.25)
> Next
> End Sub
>
>
> "DTTODGG" <(E-Mail Removed)> wrote in message
> news:16EBBDB6-6EDC-4A75-880E-(E-Mail Removed)...
> > Hello,
> >
> > I'm trying to have a macro that will automatically print the file name,
> > tab,
> > and date at the bottom of each page in each sheet in the workbook.
> >
> > Thanks in advance for your help!
> >
> >
> > Dim wksht As Worksheet
> >
> > For Each wksht In Worksheet
> >
> > With ActiveSheet.PageSetup
> > .LeftFooter = "&6&F &A &D"
> > .FooterMargin = Application.InchesToPoints(0.25)
> > Next
> > End Sub
>
>
>

You have another typo:

Dim wksht As Worksheet

For Each wksht In Worksheets '<--added S to worksheet
With wksht.PageSetup '<-- same correction as Bob showed.
.LeftFooter = "&6&F &A &D"
.FooterMargin = Application.InchesToPoints(0.25)
Next wksht '<-- wksht not required, but I like it!
End Sub

DTTODGG wrote:
>
> Hello,
>
> I'm trying to have a macro that will automatically print the file name, tab,
> and date at the bottom of each page in each sheet in the workbook.
>
> Thanks in advance for your help!
>
> Dim wksht As Worksheet
>
> For Each wksht In Worksheet
>
> With ActiveSheet.PageSetup
> .LeftFooter = "&6&F &A &D"
> .FooterMargin = Application.InchesToPoints(0.25)
> Next
> End Sub

--

Dave Peterson

Thank you Bob and Dave.
I can build off of and learn more about excel thru this simple macro.

"Dave Peterson" wrote:

> You have another typo:
>
> Dim wksht As Worksheet
>
> For Each wksht In Worksheets '<--added S to worksheet
> With wksht.PageSetup '<-- same correction as Bob showed.
> .LeftFooter = "&6&F &A &D"
> .FooterMargin = Application.InchesToPoints(0.25)
> Next wksht '<-- wksht not required, but I like it!
> End Sub
>
> DTTODGG wrote:
> >
> > Hello,
> >
> > I'm trying to have a macro that will automatically print the file name, tab,
> > and date at the bottom of each page in each sheet in the workbook.
> >
> > Thanks in advance for your help!
> >
> > Dim wksht As Worksheet
> >
> > For Each wksht In Worksheet
> >
> > With ActiveSheet.PageSetup
> > .LeftFooter = "&6&F &A &D"
> > .FooterMargin = Application.InchesToPoints(0.25)
> > Next
> > End Sub
>
> --
>
> Dave Peterson
>

This should work:

Dim wksht As Worksheet
For Each wksht In ThisWorkbook.Worksheets
With wksht.PageSetup
.LeftFooter = "&6&F &A &D"
.FooterMargin = Application.InchesToPoints(0.25)
End With
Next
End Sub



"DTTODGG" <(E-Mail Removed)> wrote in message
news:3C5F7D6B-1E67-491D-9BF3-(E-Mail Removed)...
> Thanks Bob, that makes sense. I'm really new to this and need every detail
> explained.
>
> Does the For/Next require something?
> I'm getting an error. I don't know how many sheets there might be.
> So, do I need to activate a sheet before the next loop?
>
>
>
> "Bob Umlas" wrote:
>
>> Change to:
>>
>> Dim wksht As Worksheet
>>
>> For Each wksht In Worksheet
>>
>> With wksht.PageSetup '<====error was here
>> .LeftFooter = "&6&F &A &D"
>> .FooterMargin = Application.InchesToPoints(0.25)
>> Next
>> End Sub
>>
>>
>> "DTTODGG" <(E-Mail Removed)> wrote in message
>> news:16EBBDB6-6EDC-4A75-880E-(E-Mail Removed)...
>> > Hello,
>> >
>> > I'm trying to have a macro that will automatically print the file name,
>> > tab,
>> > and date at the bottom of each page in each sheet in the workbook.
>> >
>> > Thanks in advance for your help!
>> >
>> >
>> > Dim wksht As Worksheet
>> >
>> > For Each wksht In Worksheet
>> >
>> > With ActiveSheet.PageSetup
>> > .LeftFooter = "&6&F &A &D"
>> > .FooterMargin = Application.InchesToPoints(0.25)
>> > Next
>> > End Sub
>>
>>
>>