A
andysgirl8800
thanks for all of your help...really got my gears grinding trying to
work this out. Is there a quick line of code that I can add to my
macro to format the date in column B from 38868 to 5/31/06 without
using the format cells route? Should be the last line of the following
code...
Sub Format()
Range("B1").Select
Do
Do Until Selection = ""
Selection = Left$(Selection, (Len(Selection) - 3))
Selection.Offset(1, 0).Select
Exit Do
Loop
Loop Until Selection = ""
Range("A:A,C:C,E:F,I:K,L:L,O
").EntireColumn.Delete
Range("A:A").EntireColumn.Insert
Range("B:B").EntireColumn.Insert
Range("f:f").EntireColumn.Insert
Columns(7).Cut
Columns(2).Insert
Range("C:C").EntireColumn.Delete
Rows("1:2").Delete
End Sub
work this out. Is there a quick line of code that I can add to my
macro to format the date in column B from 38868 to 5/31/06 without
using the format cells route? Should be the last line of the following
code...
Sub Format()
Range("B1").Select
Do
Do Until Selection = ""
Selection = Left$(Selection, (Len(Selection) - 3))
Selection.Offset(1, 0).Select
Exit Do
Loop
Loop Until Selection = ""
Range("A:A,C:C,E:F,I:K,L:L,O
").EntireColumn.DeleteRange("A:A").EntireColumn.Insert
Range("B:B").EntireColumn.Insert
Range("f:f").EntireColumn.Insert
Columns(7).Cut
Columns(2).Insert
Range("C:C").EntireColumn.Delete
Rows("1:2").Delete
End Sub