Sub Test() If IsNumeric(ActiveCell) Then If Int(ActiveCell) = ActiveCell Then MsgBox "В ячейке целое число", 64, "Для сведения" End If End Sub
If Cells(1,1).Value = Val(Cells(1,1)) then msgbox "Целое число"