Function Zahlenangaben(IntLine, IntColumn, StrErrorMsg)
Dim BolNumber As Boolean
BolFounderror = False
Range(IntColumn & IntLine).Select
StrValue = ActiveCell.Value
BolNumber = IsNumeric(StrValue)
If BolNumber <> True Then
BolFounderror = True
End If
If BolFounderror = True Then
Range(IntColumn & IntLine).Select
ActiveCell.Font.Color = -16776961
Range("A" & IntLine).Select
ActiveCell.Font.Color = -16776961
StrCell = ActiveCell.Value
ActiveCell.Value = StrCell & " " & StrErrorMsg
Else
Range(IntColumn & IntLine).Select
ActiveCell.Font.ThemeColor = xlThemeColorLight1 тут тормозит
End If
Zahlenangaben = BolFounderror
End Function


писал в Excel 2010 пытаются открыть в 2003 что тут можно поправить ....подскажите плиз

на какую она тогда меняется
потому что в 2010 так

я уже понял , но какие используются в 2003