msofalse

Hi all, I received help on this problem for a previous project from this forum, for which I was very grateful. The code I was given is as follows: Private Sub Workbook_Open() Dim ws As Worksheet For Each ws In Sheets ws.Protect Password:="dataplan", UserInterFaceOnly:=True...

Hi Is there a simpler & neater way to write this in a For Each loop With Sheet3.Shapes .Range("Picture 7").Visible = msoFalse .Range("Picture 9").Visible = msoFalse .Range("Picture 4").Visible = msoFalse .Range("Picture 5").Visible = msoFalse .Range("Picture 6").Visible...

I have created this macro and it works fine on my computer. However, I sent it to coworkers to use on their computers and it does not work. Private Sub Workbook_Open() ' ' MoveDateBoxMain Macro ' ' Sheets("Main").Activate ActiveSheet.Shapes.Range(Array("DTPicker2")).Select...

Hi All, I grabbed this macro code, and it works perfectly, except for one thing, the macro runs on the whole worksheet and I need it to run on only the active cell. I’ve tried adjusting ActiveWorkbook, with ActiveCell, Worksheet with Cell, and a few other things, but nothing seems to work...

Hi, I have a code as below: ActiveSheet.Shapes.Range(Array("image1.jpeg")).Select Selection.Delete Windows("Formatting Tool.xlsm").Activate Sheet1.Shapes("image1.jpeg").Copy Windows("Format File.xlsx").Activate Range("H8:H8").Select ActiveSheet.PasteSpecial...

Here are my two issues: 1. I am having a hard time figuring out this "Debug." I copy and pasted the code below. It has two do with an image I inserted in the Macro then hyperlinked it to a website 2. I added a sheet by mistake then deleted it. Every time I run the Macro it pops up "Are you sure...

I am using the below macro to insert a signature (jpeg file) into a set cell area. When setting the macro the signature is sized to the cell and saved (fits perfectly). When reopening the spreadsheet and selecting the macro button the signature is large and does not appear in the cell that...

My intention to make my text box word wrap=true as well as locked Sub Cronical_Click() With ActiveSheet.TextBoxes ActiveSheet.TextBoxes.Locked = True ActiveSheet.TextBoxes.LockedText = True End With With ActiveSheet .Range(Array("TBA,TBB,TBC,TBD,TBE,TBF,TBR,TBL")).Select...

Hi I am trying to paste special an object from Excel to the word file. However, I get "member or data member not found". Here is my code: With Selection.Tables(1).Rows(1) Selection.PasteSpecial Link:=True, DataType:=wdPasteOLEObject, Placement:= _ wdInLine, DisplayAsIcon:=False...

Hi, Every time I toggle between Excel and PowerPoint using vba, ppt crashes and I don't know the reason why. But when I try to run manually by pressing F8, it works perfectly fine as required. I have tried searching a lot of websites but didn't get a work around. My work is simple. I have...