Small Macro to Delete

[zaska]

Hi,

I need a macro to

1. delete rows " 1,3,5,7,9,etc till row 37
2. delete entire column " G "
3. Set Date Format of column "B" as "YYYYMMDD"

Thank you

 

[VoG]

Try

Sub MyTest()
Dim i As Long
For i = 37 To 1 Step -2
    Rows(i).Delete
Next i
Columns("G").Delete
Columns("B").NumberFormat = "YYYYMMDD"
End Sub

 

[zaska]

Thank you sir.