Post user name in footer of Excel Worksheet

[Livin404]

Hello I have the following Micro and it works find for placing a truncated user name a little after the last entry in Column A. What I am hoping to do is have the truncated user name be placed in the left footer.
This is the micro that I currently have and it works, because it's been done hundreds of times. My new project requires it to be placed in the footer. I hope someone may be able to help me out. I'm know the range line we need to be adjusted.

Sub USER_NAME()
Dim LastRow As Long
Dim wName As String, wSurame As String, Title As String
Dim x As Variant
LastRow = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row
wName = Replace(Application.UserName, "Esq", "MR")
wSurname = UCase(Split(wName, ",")(0))
For Each x In Array("MR ", "MS")
If InStr(wName, x) > 0 Then
Title = UCase(x)
Exit For
End If
Next x
Range("A" & LastRow + 3).Value = "SUBMITTED BY: " & Title & wSurname
End Sub

 

[jolivanes]

Re: "and it works". Not if you have "Option Explicit" in your module(s)
"wSurame As String" is missing an "n"

Change

Range("A" & LastRow + 3).Value = "SUBMITTED BY: " & Title & wSurname

to

ActiveSheet.PageSetup.LeftFooter = Title & wSurname

 

[Livin404]

Thank you, I ended up with and it worked fine, I rushed back here to let it be known it was sorted.

Thank you,


Sub user()
Dim wName As String, wSurname As String, Title As String
Dim x As Variant
wName = Replace(Application.UserName, "Esq", "MR")
wSurname = UCase(Split(wName, ",")(0))
For Each x In Array("MR ", "MS")
If InStr(wName, x) > 0 Then
Title = UCase(x)
Exit For
End If
Next x
With ActiveSheet.PageSetup
. LeftFooter = "SUBMITTED BY: " & Title & wSurname
End With
End Sub

 

[jolivanes]

Thank you for the update and good luck.