Move to first blank sheet

  • Thread starter Thread starter dboone
  • Start date Start date
D

dboone

Hello,

I have an application with many hidden sheets. A macro will unhide
sheets based on a criteria. The user then responds to questions and a
score is calculated. No problem so far.

However, if the user backs out of these sheets and re-enters via the
macro, I need for them to be taken to the sheets that haven't yet been
entered/altered.

I need this to work in Excel 95 and up and I understand there are
compatibility problems with OnEntry, OnData in 95 and On
Wookbook_Change in 97 etc.

Any thoughts?

Thanks very much in advance.

Dave
 
Something like this should work in all versions.

Sub gotoblanksheet()
For Each sh In Worksheets
If Len(sh.Range("a1")) < 1 Then
sh.Select
Exit Sub
End If
Next
End Sub
 
Back
Top