On Tuesday, December 10, 2013 10:49:56 AM UTC-8, Howard wrote:
Do I have something up-stream of the copy lines (both which error out) to make them fail?



Code is in a standard module

I have seven sheets commented out as I test the code.



Thanks,

Howard



Option Explicit



Sub ZeroOneDashIandN()

Dim c As Range

Dim i As Long

Dim j As String

Dim MyArr As Variant

Dim lr As Long

Dim rngB As Range



MyArr = Array("01-IN", "02-IN", "03-IN") ', "04-IN", "05-IN", "06-IN", "07-IN", "08-IN", "09-IN", "10-IN")

Application.ScreenUpdating = False



For i = LBound(MyArr) To UBound(MyArr)



With Sheets("Sales Forecast")

j = Range("B3").Value

lr = Cells(Rows.Count, 11).End(xlUp).Row

Set rngB = Range("B13:B" & lr)



For Each c In rngB

If c = j Then



c.Offset(, 2).Resize(1, 76).Copy

Sheets(i).Range("B" & Rows.Count) _

.End(xlUp)(2).PasteSpecial Paste:=xlPasteValues



'Sheets(i).Range("B" & Rows.Count) _

.End(xlUp)(2) = c.Offset(, 2).Resize(1, 76)



End If



Next 'c



End With

Next 'i



Application.ScreenUpdating = True

End Sub

Just to add, if I can, j value is actually on sheet("01-IN") cell B9. I tried this line in the code where it works on other examples but errors here.

j = Sheets("01-IN").Range("B9").Value

I had placed it just above the For i = LBound(MyArr) To UBound(MyArr) line.
So now I have a formula in Sales Forecast range(B3) ='01-IN'!B9


Howard