Insert a new Column a in specific Sheet and fill it with content

Purfleet · #1 08-27-2020, 11:53 AM

Pretty sure you cant have ws defined as a worksheet and assign a string to it.

If you change Dim ws as worksheet to Dim ws as variant it works

Code:

Sub Einfügen_New_A_and_Fill_with_Content_SPECIFIC_SHEET()
 Dim ws As Variant, Data$
ws = InputBox("Provide a sheet name:")
Data = InputBox("What would you like to insert in column A ?")
For Each ws In Sheets
   ws.Columns(1).Insert
   ws.Cells(1).Resize(ws.UsedRange.Rows.Count) = Data
Next
End Sub

Thread Tools
Show Printable Version Email this Page
Display Modes
Switch to Linear Mode Hybrid Mode Switch to Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Insert Rich Text Content Control in specific position, Word 2013 VBA	LaurenM	Word VBA	13	12-01-2017 02:07 AM
Export Word Drop-Down Content Control to Excel Specific Sheet	nolanthomas32	Word VBA	4	09-19-2017 06:25 AM
Code to Sum Column of Content Control Values In Specific Tables?	warbird	Word VBA	2	07-13-2015 05:44 AM
Excel copy two numbers between specific column and paste in next sheet	visha_1984	Excel	1	12-26-2014 07:59 PM
Create a New Sheet from Existing Sheet with Specific Columns	malam	Excel Programming	1	10-17-2014 10:01 PM