Using functions in macros

  • Thread starter Thread starter Guest
  • Start date Start date
Yes

use something like this

For Each c in selection
If isnumeric(c) then
c.value= C*2
Elseif
Not isnumeric(c) then
c.value= c & c
end if
Nect c


See also IsArray, IsText, IsEmpty

Peter
 
This will select all cells on the worksheet with a number.

Sub isitanumber()
With ActiveSheet.UsedRange
..SpecialCells(xlConstants, xlNumbers).Select
End With
End Sub
 
Back
Top