Hi Don,

Maybe this will get you going:

Dim r, c As Integer
r = 1
c = 2
Cells(r, c).Select
If Mid(Cells(r, c - 1), 1, 8) = " " Then
MsgBox "Eight spaces"
Else
MsgBox "Not Eight spaces"
End If



------------------------------------------------
~~ Message posted from http://www.ExcelTip.com/
~~ View and post usenet messages directly from http://www.ExcelForum.com/