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

On 03/02/2012 15:50, Tom Davies wrote:
> Hi :)
> Have you opened the ods as an archived-file / zip-file?  Are the tab-labels in the contents.xml in 
> there?
> Regards from
> Tom :)

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 on the bolded portion. I'm not a macro person and this 
was copied from one in Excel that worked OK.
Anyone tell me what I need to replace the bolded bit with?

--
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