Private Sub Question
From what you mentioned; the below if copied to a separate module should give
error. Try and feedback....You dont need to use worksheetfunction.Find...See
below
Public Blah As String
Private Sub Second()
Dim i as Long, LastColumn as Long
LastColumn = 10
For i = 2 To LastColumn
Blah = Split(ActiveCell)(0)
Next
End Sub
If this post helps click Yes
---------------
Jacob Skaria
"Richard" wrote:
Hi
I have the following
Public Blah As String
I then run Sub dia()
which as part of it's code runs private sub second()
Part of the code of private sub second() is
For i = 2 To FinalColumn
Blah = Left(ActiveCell, WorksheetFunction.Find(" ", ActiveCell) - 1)
etc etc
when the code gets to the above line I get a run-time error 13, type mismatch
If sub second() is not private, I don't get this error.
Can someone please advise how to rectify this issue
thanks
Richard
|