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.
Sub FormatIt() Columns(1).EntireColumn.Delete Application.ScreenUpdating = False Columns("C:C").SpecialCells(xlCellTypeBlanks).EntireRow.Delete Application.ScreenUpdating = True Dim rng As Range Worksheets.Add(After:=Worksheets(Worksheets.Count)).Name = "Saffola" Set rng = Worksheets("Sheet1").Range("A1:F2000") Worksheets("Saffola").Range("A1").Resize(rng.Rows.Count, rng.Columns.Count).Cells.Value = rng.Cells.Value Dim ws As Worksheet Set ws = Worksheets("Saffola") Columns(1).NumberFormat = "MM/DD/YYYY" For Each ws In ActiveWorkbook.Worksheets With ws.Rows(1).Font .Bold = True End With Application.Goto [A1] Next ws Worksheets("Saffola").Columns("A:I").AutoFit Sheet1.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.