Percent progress
 

Hi,
How can I make a variable, PCT, that calculates the
percent progress of this macro. Thanks, John

Dim cell As Range

For Each cell In Worksheets("Sheet1").Range("A1:A2401")
cell.Resize(1, 4).Copy


With Worksheets("Sheet2")

.Range("B2").PasteSpecial Transpose:=True
cell.Offset(0, 4).Value = .Range("B8").Value

End With

Next

Percent progress
 

For Each cell In Worksheets("Sheet1").Range("A1:A2401")
cell.Resize(1, 4).Copy


With Worksheets("Sheet2")

.Range("B2").PasteSpecial Transpose:=True
cell.Offset(0, 4).Value = .Range("B8").Value
pct = format(cell.row/2401,"#00.0%")
End With

Next

--

regards,
Tom Ogilvy

John wrote in message
...
Hi,
How can I make a variable, PCT, that calculates the
percent progress of this macro. Thanks, John

Dim cell As Range

For Each cell In Worksheets("Sheet1").Range("A1:A2401")
cell.Resize(1, 4).Copy


With Worksheets("Sheet2")

.Range("B2").PasteSpecial Transpose:=True
cell.Offset(0, 4).Value = .Range("B8").Value

End With

Next