S
Sethaholic
I have a relatively simple code below. How do I code it so that when I
rename my workbook from "text" to say, "text2", it will automatically
update itself in vba? Is this possible? Thanks!
Sub Convertdates()
Windows("text").Activate
Sheets("Sheet1").Select
Range("I2").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
For Each cell In Selection
cell.Value = Mid(cell, 5, 2) & "/" & Right(cell, 2) & "/" &
Left(cell, 4)
Next
Selection.NumberFormat = "m/d/yy"
Cells.Find(What:="/0/0", After:=ActiveCell, LookIn:=xlFormulas, LookAt
_
:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext,
MatchCase:= _
False).Activate
Cells.Replace What:="/0/0", Replacement:="0/0/00", LookAt:=xlWhole, _
SearchOrder:=xlByRows, MatchCase:=False
End Sub
rename my workbook from "text" to say, "text2", it will automatically
update itself in vba? Is this possible? Thanks!
Sub Convertdates()
Windows("text").Activate
Sheets("Sheet1").Select
Range("I2").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
For Each cell In Selection
cell.Value = Mid(cell, 5, 2) & "/" & Right(cell, 2) & "/" &
Left(cell, 4)
Next
Selection.NumberFormat = "m/d/yy"
Cells.Find(What:="/0/0", After:=ActiveCell, LookIn:=xlFormulas, LookAt
_
:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext,
MatchCase:= _
False).Activate
Cells.Replace What:="/0/0", Replacement:="0/0/00", LookAt:=xlWhole, _
SearchOrder:=xlByRows, MatchCase:=False
End Sub