Compile Error

Giganews Newsgroups
Subject: Compile Error
Posted by:  dipsy (dipsydoodler…@yahoo.com)
Date: Wed, 22 Oct 2003

I am getting complie error - Duplicate error in current
scope

Can some one please tell me what is wrong?  TIA.

Dim rng(0) As Range
Set rng(0) = sheets("Approval-Summary_PER").Range
("J53:K53")
Set rng(1) = sheets("Approval-Summary_PER").Range
("J54:k54")
Set rng(2) = sheets("Approval-Summary_PER").Range
("J55:k55")
Set rng(3) = sheets("Approval-Summary_PER").Range
("J56:k56")

Dim i As Integer
i = 5
For Each rng In rng
With rng
..Formula = "=HighLevelSummary_PER!$C$i"
End With
i = i + 1
Next

Replies