L
LEibo
Public Sub Tester001()
Dim WB As Workbook
Dim SH As Worksheet
Dim rng As Range
Dim delRng As Range
Dim LastRow As Long
Dim i As Long
Dim j As Long
Set WB = Workbooks("C:\Documents and Settings\jliu2\My Documents\prominence
decor inc(2009).xls")
Set SH = WB.Sheets("tb") '
LastRow = SH.Cells(Rows.Count)
Set rng = SH.Range("H12:h" & LastRow)
Application.ScreenUpdating = False
For i = 11 To rng.Rows.Count Step 1
SH.Cells(i, 6).Value = SH.Cells(i, 6).Value - SH.Cells(i, 8).Value
SH.Cells(i, 8).deleted
Next i
Application.ScreenUpdating = False
End Sub
Dim WB As Workbook
Dim SH As Worksheet
Dim rng As Range
Dim delRng As Range
Dim LastRow As Long
Dim i As Long
Dim j As Long
Set WB = Workbooks("C:\Documents and Settings\jliu2\My Documents\prominence
decor inc(2009).xls")
Set SH = WB.Sheets("tb") '
LastRow = SH.Cells(Rows.Count)
Set rng = SH.Range("H12:h" & LastRow)
Application.ScreenUpdating = False
For i = 11 To rng.Rows.Count Step 1
SH.Cells(i, 6).Value = SH.Cells(i, 6).Value - SH.Cells(i, 8).Value
SH.Cells(i, 8).deleted
Next i
Application.ScreenUpdating = False
End Sub