Nice, I had to alter the code a bit to get it to work. This is what I did:
Code:
If InStr(StrConv, "-") > 0 Then
StrConv = Split(StrConv, "-")(0) + Split(Split(StrConv, "-")(1), "/")(0) / Split(Split(StrConv, "-")(1), "/")(1)
Else
If InStr(StrConv, "/") > 0 Then
StrConv = Split(StrConv, "/")(0) / CSng(Split(StrConv, "/")(1))
End If
End If
It all works nicely and I don't get any errors and I don't have to create another sheet to get the job done.
If I decide to use the superscript Sub how would I go through and delete the carrot '^' after it is superscripted so just the number is left? I tried using a replace which did delete the '^' symbol but it was un-superscripting the numbers. I used the following code:
Code:
With .Cells(i, 3)
Columns("C").Replace what:="^", replacement:=""
End With
After the 'Next' and before the 'End With' 'Application.ScreenUpdating = True' at the end of the whole Sub