View Single Post
  #4   Report Post  
Posted to microsoft.public.excel.programming
GaryDK GaryDK is offline
external usenet poster
 
Posts: 13
Default Number Formating

Hi Jordan,

See if this helps -

Select Case InStr(ActiveSheet.Cells(rownum, 1), "-") - 1
Case 4

Case 5

Case 6

Case Else
End Select

Gary