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


--
Sethaholic
------------------------------------------------------------------------
Sethaholic's Profile: http://www.excelforum.com/member.php...o&userid=25113
View this thread: http://www.excelforum.com/showthread...hreadid=387598

Try using ActiveWorkbook.Name

"Sethaholic" wrote:


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


--
Sethaholic
------------------------------------------------------------------------
Sethaholic's Profile: http://www.excelforum.com/member.php...o&userid=25113
View this thread: http://www.excelforum.com/showthread...hreadid=387598