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 !!

See Chip Pearson's website

http://www.cpearson.com/Excel/vbe.aspx

"pls123" wrote:

> 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 !!
>
>