Contextual Guidance at the moment of need helps your employees adopt to new software or processes instantly. Boost knowledge retention and employee engagement step-by-step with one easy solution.
Option Explicit Sub Clean_Up() Dim rng As Range Dim rng2 As Range Dim cl As Object Dim lngRow As Long Set rng = Range("A1:A" & Cells.SpecialCells(xlLastCell).Row + 1) On Error Resume Next For lngRow = 1 To rng.Rows.Count ActiveSheet.Cells(lngRow, 1).Value = Split(ActiveSheet.Cells(lngRow, 1).Value, " ")(0) Next On Error GoTo 0 Columns("T:Z").EntireColumn.Delete Columns("B:R").EntireColumn.Delete End Sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.