Oops - comment 4 code should be...
lngCounter = UserForms.Count
If lngCounter 0 Then
For N = lngCounter to 1 Step -1 '<<this line changed
Unload UserForms(N - 1)
Next
End If
--
Jim Cone
San Francisco, USA
http://www.realezsites.com/bus/primitivesoftware
(Excel Add-ins / Excel Programming)