Helpful to verify reports of your own downtime, or to double check a downed website you are trying to access.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.
Function RemoveAlpha(cellInput) As String Set cellInput = Intersect(cellInput.Parent.UsedRange, cellInput) For i = 1 To Len(cellInput) Select Case Mid(cellInput, i, 1) Case 1, 2, 3, 4, 5, 6, 7, 8, 9, 0, " ", "-", "/" ,"@" ,"%" Charval = Mid(cellInput, i, 1) Case Else Charval = "" End Select RemoveAlpha = RemoveAlpha & Charval Next i End Function
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
|ActiveX component can't create object VBA how to fix it||6||60|
|Excel formula with SUMIF and SUBTOTAL||13||45|
|Lookup range formula||7||27|
|Assigning multiple macro in one command button||9||23|
Join the community of 500,000 technology professionals and ask your questions.