Invalid qualifier error

[rjplante]

I have the code posted below and when it runs, it flags with and Invalid Qualifier error. I don't know why it is doing so. It highlights the title of the macro in yellow, and has the Ftr in the With statement also highlighted selected. Any ideas would be great.

Thanks,

Robert

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
    Dim Ftr As String
    
    ActiveSheet.PageSetup.RightFooter = "Machine:  " & Sheets("Safety").Range("M1").Value
    
    Ftr = ActiveSheet.PageSetup.RightFooter.Text
    
    With Ftr.Font
        .Name = "Calibri"
        .FontStyle = "Bold"
        .Size = 18
    End With
        
End Sub

 

[Yongle]

Try this

    Dim Ftr As String
    Ftr = "Machine:  " & Sheets("Safety").Range("M1").Value
    ActiveSheet.PageSetup.RightFooter = "&""Calibri,Bold""&18" & Ftr

You could have recorded a macro to learn this method

 

[rjplante]

Thanks, Yongle. That did the trick.

 

[Yongle]

Thanks for the feedback