Is there a way to highlight a cell currently in use if the sheet is
protected. I found this code in my search however it does not work
with a protected sheet. Thanks for any help with this in advance.
1. Use ALT + F11 to open the
VB editor
2. Double click 'ThisWorkbook' in the Project Explorer
3. Paste the following:
Dim PrevCellCol As Long, PrevCellRow As Long
4. In the Code, select 'Workbook' - Workbook_SheetSelectionChange
5. Paste the Following:
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal
Target As Range)
If PrevCellCol = 0 Then
PrevCellCol = ActiveCell.Column
PrevCellRow = ActiveCell.Row
Else
Cells(PrevCellRow, PrevCellCol).Interior.ColorIndex = xlNone
End If
ActiveCell.Interior.ColorIndex = 22
PrevCellCol = ActiveCell.Column
PrevCellRow = ActiveCell.Row
End Sub
--
Db1712
------------------------------------------------------------------------
Db1712's Profile:
http://www.excelforum.com/member.php...o&userid=15912
View this thread:
http://www.excelforum.com/showthread...hreadid=320546