with ªº¥Îªk¤ß±o¤À¨É
Sub Ma3333()
With Workbooks("111.xls").Sheets("Sheet2") '¤£¥i¥H.Sheet2 (µL¦¹»yªk)
.Range("a8").Value = 1 '³Ì«e±ªºÂI¤£¥i®³±¼ ,®³±¼·|Åܦ¨¦bactive sheet
End With
End Sub
--------
Sub Ma3333()
With Workbooks("111.xls")
.Sheets("Sheet2").Range("a8").Value = 1 '³Ì«e±ªºÂI¤£¥i¤Ö±¼ ¤£¥i¥H¥Î.sheet2.range("a8").Value = 1 (µL¦¹»yªk)
End With
End Sub