Question: I have a row that contains part of an address example "GILBERT AZ 85234-4512". I want to remove all but the 85234. So remove all characters but numbers and only keep the 5 digit zip. 

This needs to be done in a loop because I have 1500+ records. If it's not too much trouble have it remove any left over spaces too.

Answer: 
Unless there is a "-" in the address elsewhere, this should work.

***updated***: I altered this for cases with no "-" in the zipcodes

```
    Sub findZip()
Dim hyphen As String
Dim zip As String
    For Each cell In Range("A2:A1501")
        hyphen = InStr(1, cell, "-")
        If hyphen <> 0 Then
         zip = Trim(Mid(cell, hyphen - 5, 5))
         Else: zip = Right(Trim(cell), 5)
         End If
        cell.Offset(0, 1) = zip
    Next
End Sub

```
A quick way is to select the cells and choose Find-Replace (Ctrl+H). 

First replace `-*` with nothing and then replace `*` (inc. blank space) with nothing . 

This relies on your data being consistently formatted so check the results and use undo/redo if necessary.