Sub Replacespace()
For Each Sht In ActiveWorkbook.Sheets
    Set Rng = Sht.UsedRange
        For Each cell In Rng
            If cell.Value = "; " Then
               cell.Value = ";"
            End If
        Next cell
Next Sht
End Sub