Home |
Search |
Today's Posts |
#1
![]()
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
![]()
I am new to macros and visual basic. I am trying to get the following to run
on all sheets. After searching I found what I thought would work, but it only works on the active sheet and not all sheets. Please help. Sub stock1() ' ' stock1 Macro ' ' Keyboard Shortcut: Ctrl+y ' Dim ws As Worksheet For Each ws In ActiveWorkbook.Worksheets ActiveWorkbook.RefreshAll Next For Each ws In ActiveWorkbook.Worksheets Cells.Find(What:="put options", After:=ActiveCell, LookIn:=xlFormulas, _ LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ MatchCase:=False, SearchFormat:=False).Activate ActiveCell.Range("A1:P317").Select Selection.Cut ActiveCell.Offset(-14, 12).Range("A1").Select Cells.Find(What:="call options", After:=ActiveCell, LookIn:=xlFormulas, _ LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ MatchCase:=False, SearchFormat:=False).Activate ActiveCell.Offset(0, 17).Range("A1").Select ActiveSheet.Paste Next End Sub |
Thread Tools | Search this Thread |
Display Modes | |
|
|
![]() |
||||
Thread | Forum | |||
Using the same macro on different sheets | Excel Worksheet Functions | |||
macro for same value in 2 different sheets | Excel Discussion (Misc queries) | |||
Add sheets using macro | Excel Worksheet Functions | |||
macro for new sheets | Excel Worksheet Functions | |||
macro/new sheets | Excel Discussion (Misc queries) |