Generate Venn diagrams with multiple data

Hi Yogesh,

Here's the code - once you have the calculations, just run it from 3 to 5!

Sub VennEm(): Dim s As Integer, i As Long, j As Long, Origin As Range
Dim R As Single, X As Single, Y As Single, OL As Single, OT As Single
Dim L As Single, T As Single, W As Single, H As Single

Set Origin = Range("K17"): OL = Origin.Left: OT = Origin.Top: s = 10

For i = 3 To 5
R = CSng(Range("C" & i) / s): X = CSng(Range("H" & i) / s): Y = CSng(Range("I" & i) / s)
L = OL + X - R: T = OT - Y - R: W = 2 * R: H = 2 * R

Call VC(L, T, W, H)

Next i
End Sub

*the rest of the system is in the workbook post #9