Macro that Cycles through Drop down list Calculates values and changes page numbers on each value

[Campus]

I am trying to get this macro to incorporate changing the footer page number after each drop down value calculates and prints. (getting this footer in the same correct font and format would also be a huge plus: Garamond, Size 10, RGB(135,135,135)!

Here is what i have so far:

Sub PrintMacro()
Dim dvCell As Range
Dim inputRange As Range
Dim c As Range



'Which cell has data validation

Set dvCell = Worksheets("Sheet1").Range("B2")​

'Determin where validation comes from

Set inputRange = Evaluate(dvCell.Validation.Formula1)​

For Each c In inputRange

dvCell = c.Value​

ActiveSheet.PrintOut​

Next c


End Sub

Thanks!