Try this ::
Sub CopyPaste()
Dim wkssheet As Worksheet
Dim IntIndex As Integer
Dim intLoop As Integer
Dim StrSrcName As String
For Each wkssheet In ThisWorkbook.Worksheets
If wkssheet.UsedRange.Cells.Count > 1 Then
IntIndex = wkssheet.Index
Exit For
End If
Next wkssheet
StrSrcName = InputBox("Please enter the Source Sheet Name") ' I will
suggest to COpy paste the sheet Name
Worksheets(StrSrcName).UsedRange.Copy
For intLoop = IntIndex To Worksheets.Count
Worksheets(intLoop).Paste
Worksheets(intLoop).Range("B11") = Worksheets(intLoop).Name
Next
Application.CutCopyMode = xlCopy
End Sub
Regards
Rajan verma
+91 7838100659 [IM-Gtalk]
From: excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com]
On Behalf Of ..
Sent: 16 May 2012 6:22
To: excel-macros@googlegroups.com
Subject: $$Excel-Macros$$ 1. paste standard content to all sheets 2. paste
sheet name to a specific cell
Dear Members
I use XL 2003, Win XP. I have the following *request*
1. I have a workbook with approx 170 sheets
2. The first 90 or so sheets have some content in them (call them the old
sheets), the remaining 80 or so are blank as of now (call them new sheets)
3. I wish to take the content from one of the old sheets ...say sheet # 70
and paste it to all the blank / new sheets [same source , paste on all
*blank* sheets, paste only on blank sgeets]
4. Is there an easy way , with or without VB
5. Once (4) above is accomplished,
6. I need to past the sheet name of the *new* sheets - only new sheets on to
cell B 11 of each of the new sheet. i.e. IF the name on sheet #100 is Delhi,
I wish to copy the Text "Delhi" (without the quotes) to Cell B 11 of sheet
# 100
any help towards the above would be gratefully acknowledged
thanks in adv. and regards
Subu
--
FORUM RULES (986+ members already BANNED for violation)
1) Use concise, accurate thread titles. Poor thread titles, like Please
Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will
not get quick attention or may not be answered.
2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security
measure.
4) Acknowledge the responses you receive, good or bad.
5) Cross-promotion of, or links to, forums competitive to this forum in
signatures are prohibited.
NOTE : Don't ever post personal or confidential data in a workbook. Forum
owners and members are not responsible for any loss.
----------------------------------------------------------------------------
--------------------------
To post to this group, send email to excel-macros@googlegroups.com
--
FORUM RULES (986+ members already BANNED for violation)
1) Use concise, accurate thread titles. Poor thread titles, like Please Help,
Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get
quick attention or may not be answered.
2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security measure.
4) Acknowledge the responses you receive, good or bad.
5) Cross-promotion of, or links to, forums competitive to this forum in
signatures are prohibited.
NOTE : Don't ever post personal or confidential data in a workbook. Forum
owners and members are not responsible for any loss.
------------------------------------------------------------------------------------------------------
To post to this group, send email to excel-macros@googlegroups.com
