automatic replacing of vbe code for multiple workbooks

  • Thread starter Thread starter pls123
  • Start date Start date
P

pls123

hi all a got a workbook called.. Replacer, it contains this macro:

Sub rep()
On Error Resume Next
Dim Wb As Workbook

For Each Wb In Workbooks
If Left(Wb.Name, 6) = "MI.F@S" Then
Wb.Sheets("sheet1").Range("P2").Value = "-1"
End If

Next Wb
End Sub

now..
for each workbook in open workbooks whose name begins with "abc", i need to
replace or cancel a line or a piece of vbe ..

maybe this one:
If (Weekday(Now(), vbMonday)) Then
aWS.Range("V104").Value = aWS.Range("V104").Value * 2
End If

can anybody help me pls . tx !!
 
Back
Top