[libreoffice-users] Re: Renaming Tabs in a spreadsheet in bulk.

Hi :)
So really all you need is a translation of the Excel macro below.  Calc uses
a completely different language, or at least different enough that the below
coding wont work.  
Regards from
Tom :)


Gordon Burgess-Parker wrote
> I tried adding this Macro:
>
> Sub Rename_Tabs()
>   Dim x As Long, suffix As String
>   Dim v as Variant
>   suffix = " 12"
>   v = Split("Jan,Feb,Mar,Apr,May,Jun,Jul,Aug,Sep,Oct,Nov,Dec", ",")
> *For x = 1 To Worksheets.Count*
>       If Not IsError(Application.Match(Left(Sheets(x).Name, 3), v, 0))
> Then
>       Sheets(x).Name = Left(Sheets(x).Name, 3) & suffix
>       End If
>   Next
> End Sub
>
> But it fell over .... I'm not a macro person and this was copied from one
> in Excel that worked OK.  Anyone tell me what  ... [Calc would need
> instead] ... ?


--
View this message in context: 
http://nabble.documentfoundation.org/Renaming-Tabs-in-a-spreadsheet-in-bulk-tp3713315p3714053.html
Sent from the Users mailing list archive at Nabble.com.

-- 
For unsubscribe instructions e-mail to: users+help@global.libreoffice.org
Problems? http://www.libreoffice.org/get-help/mailing-lists/how-to-unsubscribe/
Posting guidelines + more: http://wiki.documentfoundation.org/Netiquette
List archive: http://listarchives.libreoffice.org/global/users/
All messages sent to this list will be publicly archived and cannot be deleted