VBA obfuscate data & find cell

[wigdawei]

I am using Excel to tabulate scores for my employees. We work in a very busy and open office, so there is a need to be able to obfuscate the scores, but also help keep from losing my place while punching the scores.

I would like it to be able to return to the last cell that I was punching a score in... I believe I have become confused in using "ActiveCell.SpecialCells(xlLastCell).Select" as I think it wants to reselect the last used range as the last cell... How do I find the last used cell before the range of cells was selected? Any suggestions of a better approach to "hiding" the scores is also appreciated.

Thanks,
David

Sub Hide_Scores()
  Range("B15:EU35").Select
    ActiveSheet.Unprotect
       With Selection
          .HorizontalAlignment = xlCenter
          .VerticalAlignment = xlCenter
          .WrapText = False
          .Orientation = 0
          .AddIndent = False
          .IndentLevel = 0
          .ShrinkToFit = False
          .ReadingOrder = xlContext
          .MergeCells = False
        End With
        With Selection.Font
          .Name = "Arial"
          .FontStyle = "Bold"
          .Size = 10
          .Strikethrough = False
          .Superscript = False
          .Subscript = False
          .OutlineFont = False
          .Shadow = False
          .Underline = xlUnderlineStyleNone
          .ColorIndex = 2
        End With
      ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
  x = ActiveSheet.UsedRange.Rows.Count
  ActiveCell.SpecialCells(xlLastCell).Select
End Sub

EDIT: Added code tags - Moderator

 

[ravishankar]

Hi
To find the last row use
x= cells(Rows.count,2).end(xlUP).row
you may need to unprotect the sheet.
Ravi

 

[wigdawei]

Thank you for the response.

I have unprotected the sheet. However, the entire range B15:EU35 remains selected. When I begin typing the new data enters into cell B15 and not the last cell I used before the range was selected.

Other ideas?

- David

 

[ravishankar]

Hi
In the last line add cells(x+1,2).select
and try
Ravi

 

[wigdawei]

The cursor de-selects the range (GREAT!) but then sits at cell B15....

Thanks again.

- David

 

[wigdawei]

Solution @

http://www.ozgrid.com/forum/showthread.php?t=73582&goto=newpost**