Thread: passing an object
View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.programming
[email protected] arthurjr07@gmail.com is offline
external usenet poster
  
Posts: 18
Default passing an object
Sub sbLimitText(txtBox As Object, intRowLimit As Integer)


If txtBox.LineCount intRowLimit Then


While txtBox.LineCount intRowLimit


txtBox.Text = Left(txtBox.Text, txtBox.TextLength - 2)


Wend


End If
End Sub


HTH
Arthur

Reply With QuoteReply With Quote