I tend to agree with Divakar. But in case you'd still want to go with the
original request, here's the macro
Sub CopyShapesAcross()
Dim shp As Shape
Dim lngLoop As Long
Application.ScreenUpdating = False
Set shp = Sheets(1).Shapes("NameOfShape")
For lngLoop = 2 To Sheets.Coun
please Ignore previouse Mail
Sub MakeMyIndex()
Dim intICounter As Integer
Dim intTotalSheet As Integer
Dim wksIndexAs Worksheet
Dim shButtonAs Shape
Set wksIndex = Worksheets.Add
wksIndex.Name = "Index"
intTotalSheet = ThisWorkbook.W
I Create a macro to an Index Sheet..
Hope it will be Usable
Sub MakeComponentinRunTImeOnSpreadSheet()
On Error Resume Next
Dim cb As OLEObject
n = 5
For i = 1 To 10
Set cb = ActiveSheet.OLEObjects.Add(classtype:="Forms.Checkbox.1")
With cb
.Top = n
it is so easy, if you use hyperlink instead of button
Divaker
On Wed, Oct 12, 2011 at 5:15 PM, Eddie wrote:
> Hi,
>
> I have a workbook with around 100 worksheets. The first sheet acts as
> a summary/introductory or front end and has links to other "sub-
> sheets". In the first sub-sheet I've
hen Sheets("sheet1").Select
End Sub
Don Guillett
SalesAid Software
dguille...@gmail.com
-Original Message-
From: Eddie
Sent: Wednesday, October 12, 2011 6:45 AM
To: MS EXCEL AND VBA MACROS
Subject: $$Excel-Macros$$ Pasting a button onto multiple sheets
Hi,
I have a workbook with a
Hi,
I have a workbook with around 100 worksheets. The first sheet acts as
a summary/introductory or front end and has links to other "sub-
sheets". In the first sub-sheet I've created a button containing a
macro that returns you to the introduction sheet. What I'd like to do
is copy this button on
