Mega Code Archive

 

Categories / VisualBasic Script / Excel

 

Determining a cells data type

Function CellType(Rng)     Application.Volatile     Set Rng = Rng.Range("A1")     Select Case True         Case IsEmpty(Rng)             CellType = "Blank"         Case WorksheetFunction.IsText(Rng)             CellType = "Text"         Case WorksheetFunction.IsLogical(Rng)             CellType = "Logical"         Case WorksheetFunction.IsErr(Rng)             CellType = "Error"         Case IsDate(Rng)             CellType = "Date"         Case InStr(1, Rng.Text, ":") <> 0             CellType = "Time"         Case IsNumeric(Rng)             CellType = "Value"     End Select End Function