L
LuLu
Hi ACW,
Thanks for the response - much appreciated. I may have
messed this up though. I have missed a step perhaps, this
is what I have in my VBA module. Correct? It is giving me
errors.
Sub Tony()
Function FindStores(target As Range)
For Each ce In target
If ce.Value = "x" Then
holder = holder & Val(Left(Sheets("storesheet").Cells
(ce.Row, 1), 2)) & ","
End If
Next ce
FindStores = holder
End Function
End Sub
Thanks
Lulu
Thanks for the response - much appreciated. I may have
messed this up though. I have missed a step perhaps, this
is what I have in my VBA module. Correct? It is giving me
errors.
Sub Tony()
Function FindStores(target As Range)
For Each ce In target
If ce.Value = "x" Then
holder = holder & Val(Left(Sheets("storesheet").Cells
(ce.Row, 1), 2)) & ","
End If
Next ce
FindStores = holder
End Function
End Sub
Thanks
Lulu