Toppers,
I put in the dim cell as range
and I am getting Run-time error '13': Type Mismatch
Here is my complete code
If Sheet2.Visible = xlSheetHidden Then
Sheet2.Visible = xlSheetVisible
End If
Sheet2.Activate
Range("A2").Select
Do
ActiveCell.Value = CLng(ActiveCell.Value)
ActiveCell.Offset(1, 0).Select
Loop Until ActiveCell.Value = ""
Dim cell As Range
For Each cell In Range("C2:C500")
If cell.Value < "" Then cell.Value = CLng(cell.Value)
Next
Thanks for any help.....
Jos
--
jhahe
-----------------------------------------------------------------------
jhahes's Profile:
http://www.excelforum.com/member.php...fo&userid=2359
View this thread:
http://www.excelforum.com/showthread.php?threadid=52498