Home |
Search |
Today's Posts |
#3
![]()
Posted to microsoft.public.excel.programming
|
|||
|
|||
![]()
thank u and mri x-mas
reg Jan "Tom Ogilvy" skrev i melding ... With Worksheets("Sheet2") for each cell in .Range(.Cells(1,8),.Cells(rows.count,8).End(xlup)) if not isempty(cell) then worksheets("Sheet3").Copy After:=Worksheets(worksheets.count) Activesheet.Name = Cell.Value end if Next End With -- Regards, Tom Ogilvy "Jan Eikeland" wrote in message ... envir excel in office97, winxphome hi, from a buttonclickevent in sheet1 i want this to happen: Loop through cells in a columnH in sheet2 Make a copy of sheet3 Rename that copy to a textvalue in current cell in columnH in sheet2 stopping at a value in a cell in sheet2 Could u help me to convert this to vba code? thank You regards Jan |
Thread Tools | Search this Thread |
Display Modes | |
|
|
![]() |
||||
Thread | Forum | |||
Renaming Sheets | Excel Discussion (Misc queries) | |||
Renaming sheets with the same name after copying into a new workbo | Excel Discussion (Misc queries) | |||
Copying and renaming a file | Excel Discussion (Misc queries) | |||
Copying and renaming worksheets | Excel Programming | |||
renaming sheets | Excel Programming |