This code is in ThisWorkbook

Private Sub Workbook_Open()
Sheets("2006-2009").Select
Set rRng = Range("A" & Range("A" & Rows.Count).End(xlUp).Row)
With rRng.Offset(rRng.Count + 0, 0).Select
UserForm1.Show vbModeless
End With
End Sub

"Rick Rothstein" wrote:

Can you show us your code (especially where it relates to showing the
UserForm)? It sounds like you may be showing the UserForm without the
modeless argument somewhere.

--
Rick (MVP - Excel)


"Dawna" wrote in message
...
Good Morning,

I have a userform that is shown modeless, which works great at first. If
there are multiple entries, I'm clearing some of the text/combo boxes and
setting focus to a specific Textbox within the userform for the next
entry.
At this point, the user can no longer click outside of the userform. Any
suggestions on how to maintain the modeless userform?

.