Hi Steved,

For every If that you see in your code there must be an End If, i hav
just had a quick scan of your code and noticed you have somethin
like:-

If Not bFirst Then
ans = MsgBox("Go again", vbYesNo)
If ans = vbNo Then Exit Sub
End If

instead of your second If ans= blah blah you should try ElseIf ans=bla
blah

HTH

Simo

--
Message posted from http://www.ExcelForum.com