Hi all
I was trying to create a function to emulate the CONCATENATE function so as
not to have fill in every time I need it.
This is the code I have so far
Function InvFileName()
firstfield = 0
secondfield = ActiveCell.Offset(0, -2).Value
thirdfield = " "
fourthfield = ActiveCell.Offset(0, -5).Value
fifthfield = " - "
sixthfield = ActiveCell.Offset(0, -6).Value
InvFileName = CONCATENATE(firstfield, secondfield, thirdfield, fourthfield,
fifthfield, sixthfield)

Please advise what I need to do to tweek this to make it work.

Thanks for any and all help!
--
Have a great day and a better tomorrow!

One way:

Function InvFileName()
firstfield = 0
secondfield = ActiveCell.Offset(0, -2).Value
thirdfield = " "
fourthfield = ActiveCell.Offset(0, -5).Value
fifthfield = " - "
sixthfield = ActiveCell.Offset(0, -6).Value
InvFileName = firstfield & secondfield & thirdfield & _
fourthfield & fifthfield & sixthfield
End Function

or just

Function InvFileName()
InvFileName = 0 & _
ActiveCell.Offset(0, -2).Value & _
" " & _
ActiveCell.Offset(0, -5).Value & _
" - " & _
ActiveCell.Offset(0, -6).Value
End Function

Regards

Trevor


"gjmink" <(E-Mail Removed)> wrote in message
news:76C14D42-2AD4-486C-8845-(E-Mail Removed)...
> Hi all
> I was trying to create a function to emulate the CONCATENATE function so
> as
> not to have fill in every time I need it.
> This is the code I have so far
> Function InvFileName()
> firstfield = 0
> secondfield = ActiveCell.Offset(0, -2).Value
> thirdfield = " "
> fourthfield = ActiveCell.Offset(0, -5).Value
> fifthfield = " - "
> sixthfield = ActiveCell.Offset(0, -6).Value
> InvFileName = CONCATENATE(firstfield, secondfield, thirdfield,
> fourthfield,
> fifthfield, sixthfield)
>
> Please advise what I need to do to tweek this to make it work.
>
> Thanks for any and all help!
> --
> Have a great day and a better tomorrow!