Snasui Excel Forum

Sub ChgFile()
'
' ChgFile Macro
'

'
Dim s As String, i As Integer, t As Integer
Select Case Weekday(Date, vbMonday)
Case 7
i = -2
Case 1
i = -3
Case Else
i = -1
End Select
s = Format(DateAdd("d", i, Date), "yyyymmdd")
t = Format(DateAdd("d", i, Date - 2), "yyyymmdd")
Range("B7:B17").Select
' Selection.Replace What:="20180423", Replacement:="20180424", LookAt:= _
xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False

Selection.Replace What:="" & t, Replacement:="" & s, LookAt:= _
xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False

ActiveWindow.SmallScroll Down:=-36
Range("A1").Select

MsgBox " finished "
End Sub