- Jan 7, 2019
- Office Version
Greetings, at long last I've completed a huge process using numerous macros, and after I cut and pasted from the source I'm left with a big selected area on my end result. I want to have the cell to finish up on one cell to remove the distraction of a large segment being selected. I'm hoping one little line can be inserted at the end of the last macro (see below) to help make that happen.
Sub find_last_plus_3() 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, "GS-05", "MR") wSurname = UCase(Split(wName, ",")(0)) For Each x In Array("MR ", "ESQ ", "MAJ ", "COL ", "Cpn ") If InStr(wName, x) > 0 Then Title = UCase(x) Exit For End If Next x Range("A" & LastRow + 3).Value = "UPDATED BY: " & Title & wSurname End Sub