Don't worry Emmett i had made some changes in Ackley code and now i am sure it will work fine as you wanted to work
Code:
Sub Hyper_Link_Change2()
Dim My_INFO As Variant
Dim Old_MONTH As String, New_MONTH As String, My_FORMULA As String, StrMSG As String
Dim MONTH_List
Dim MyRG As Range
Dim BEG_Char As Long, END_Char As Long
Set MyRG = Range("A1:A3")
MONTH_List = Array("Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul", "Aug", "Sept", "Oct", "Nov", "Dec")
My_INFO = Application.InputBox("Enter a month number: 1, 2 ..12")
If (My_INFO <> False) Then
If (IsNumeric(My_INFO)) Then
New_MONTH = MONTH_List(My_INFO) & ".xls"
My_FORMULA = MyRG.Cells(1, 1).Formula
BEG_Char = InStr(My_FORMULA, "[")
END_Char = InStrRev(My_FORMULA, "]")
Old_MONTH = Mid(My_FORMULA, BEG_Char + 1, END_Char - BEG_Char - 1)
MyRG.Replace What:=Old_MONTH, Replacement:=New_MONTH, LookAt:=xlPart _
, SearchOrder:=xlByRows, MatchCase:=False
Else
StrMSG = "Answer" & My_INFO & " is NOT a GOOD Selection"
MsgBox StrMSG, vbInformation, "ERROR"
End If
End If
End Sub
Bookmarks