Replies

It’s also possible that you’ve got a default add-in installed that disables right click functionality – My company has an otherwise very powerful add-in that disables both right click and double click functionality. If this is the case, you may be able to turn this off in the add-in’s options settings.

Brooke

In excel97 this is caused by having a workbook saved in program files / microsoft office / office / xlstart (so that your default workbook when you start excel has the properties you want.) I know the location is different for 2000 but someone else will have to tell you where exactly. Removing this workbook should solve your problem – I think!

Brooke

Hi,

I often have this problem – I tend to fix it after the import stage/event using the following code which i have attached to a custom menu item – I’m posting it partly for you and partly so those better at coding than me can suggest ways to improve on my method. (I’ve seen many variations on the theme and it would be interesting to see the code of others)

Note that if you select a range and call the routine, only the selected cells will be processed but if you select a single cell then if the cell is empty all cells above it are processed, otherwise the routine loops down the cells with values in until an empty cell is reached.
‘##########################################################
‘##########################################################
‘##########################################################
Sub ConvertTailEndNegatives()

If Selection.Cells.Count > 1 Then

For Each cell In Selection
If Right(cell.Value, 1) = “-” Then
getlength = Len(cell.Value)
getnumber = Left(cell.Value, getlength – 1)
newnumber = -1 * getnumber
cell.Value = newnumber
End If
Next

ElseIf IsEmpty(ActiveCell.Value) Then

ColVal = ActiveCell.Column
ActiveCell.Value = “end”
RowVal = 1
Do
If Right(ActiveSheet.Cells(RowVal, ColVal).Value, 1) = “-” Then
getlength = Len(ActiveSheet.Cells(RowVal, ColVal).Value)
getnumber = Left(ActiveSheet.Cells(RowVal, ColVal).Value, getlength – 1)
newnumber = -1 * getnumber
ActiveSheet.Cells(RowVal, ColVal).Value = newnumber
End If
RowVal = RowVal + 1
Loop Until ActiveSheet.Cells(RowVal, ColVal).Value = “end”
ActiveSheet.Cells(RowVal, ColVal).Value = “”

Else

RowVal = ActiveCell.Row
ColVal = ActiveCell.Column
Do
If Right(ActiveSheet.Cells(RowVal, ColVal).Value, 1) = “-” Then
getlength = Len(ActiveSheet.Cells(RowVal, ColVal).Value)
getnumber = Left(ActiveSheet.Cells(RowVal, ColVal).Value, getlength – 1)
newnumber = -1 * getnumber
ActiveSheet.Cells(RowVal, ColVal).Value = newnumber
End If
RowVal = RowVal + 1
Loop Until IsEmpty(ActiveSheet.Cells(RowVal, ColVal).Value)

End If

End Sub

HTH

brooke