I get some data from the web which i need to format it. I created below code as new to vb i might have taken an lengthy approach.
this is what it does
Once i copy paste data in sheet 1
1.Delete Column A
2.Delete Blank Rows based on column C
3.Add a New sheet with Name "saffolla" - Can i add current day to the file name
4.Copy paste values from Sheet1 to newsheet ("Saffolla 23-07-2016")
5.Change Col to "MM/DD/YYYY" format
6. Autofit all columns in new sheet
8. delete sheet1
The challenge that i the macro have to be performed for every new sheet (current day)
and deleting sheet1
Application.ScreenUpdating = False
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
.Bold = True