Pages

Ads 468x60px

Labels

Marquee

ေရႊေညာင္သားေလးတစ္ေယာက္ရဲ႕ မှတ်စုဖြစ်ပါတယ္။ ေလ့လာသူတစ္ေယာက္ ျဖစ္လုိ႔ မွားတာပါလွ်င္ ကျွန်ုပ်အပြစ်သာဖြစ်ပေတယ်။

Wednesday, May 13, 2020

Excel sheet copy rename VBA code

Sub copyrenameworksheet () 
Dim ws AS Worksheet 
Set wh = WorksheetS(ActiveSheet.Name) 
ActiveSheet.Copy after:Worksheets (Sheets.Count) 
If wh.Range ("a1") Value <> "" then
ActiveSheet. Name  = wh.Range ("A1").Value 
End if
wh.Activate 
End Sub

0 comments:

About Me

My photo
အားလံုးကိုႀကိဳဆိုပါတယ္
 
Blogger Templates