I have found a way to ensure reps are given where deserved.
Sub RepMeMofo() Dim x(1 To 10, 1 To 1) Dim i, rep For i = 1 To 10 x(i, 1) = i Next i If rep = True Then Cells(1, 1).Resize(10).Value = x Else MsgBox "If you want the answer rep me, then post in the thread you want the answer to the question, then and only then will I post the answer" End If End Sub
Bookmarks