Hi,
I was getting an overflow error at Line 2:
So, I changed my code to look like this, but I am still getting an overflow error:
Does anyone know how to get around this?
Thanks!
I was getting an overflow error at Line 2:
Code:
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
If Sheets("User Names").Range("D9").Interior.ColorIndex = xlNone And Selection.Cells.Count = 1 Then
CurrentCellValue = Target.Value
End If
End Sub
So, I changed my code to look like this, but I am still getting an overflow error:
Code:
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Dim SelectedCellCount As Long
SelectedCellCount = Selection.Cells.Count
If Sheets("User Names").Range("D9").Interior.ColorIndex = xlNone And SelectedCellCount = 1 Then
CurrentCellValue = Target.Value
End If
End Sub
Does anyone know how to get around this?
Thanks!