Macro Button for adding a column in a specific location

[SeanOZ]

Hi,

I am very much a beginner with excel, but wanting to add a button on my spreadsheet to add a column after a specific column.

The code I have put together is as follows:
Sub AddColumns()
Dim varUserInput As Variant
varUserInput = InputBox("Enter Column Letter where you want to add a column:", _
"What Column?")
If varUserInput = "" Then Exit Sub


MyRange = varUserInput
' Store the selected range in a variable.
Set MyRange = Selection
' Select the entire column.
Selection.EntireColumn.Select
' Insert Columns in all selected sheets.
Selection.Insert
' Reselect the previously selected cells.
MyRange.Select
End Sub

This does not work though.

I also want to add a button to bring up a box to ask me to delete a specific row and also one to delete a specific column so basically I will have 3 buttons.

I already have a button to add a specific row.

Thanks so much for your help in advance.

Sean

 

[My Aswer Is This]

You have about three request here.

Try this to insert the column:

Sub AddColumns()
'Modified  11/1/2019  12:55:39 AM  EDT
On Error GoTo M
Dim varUserInput As Variant
varUserInput = InputBox("Enter Column Letter where you want to add a column:", _
"What Column?")
If varUserInput = "" Then Exit Sub
Columns(varUserInput).Insert
Exit Sub
M:
MsgBox "You did not enter a letter character into the InputBox" & vbNewLine & "Try again"
End Sub

 

[SeanOZ]

Thank you so much for all your help and your quick response to my question.

Kind regards,

Sean

You have about three request here.

Try this to insert the column:

Sub AddColumns()
'Modified  11/1/2019  12:55:39 AM  EDT
On Error GoTo M
Dim varUserInput As Variant
varUserInput = InputBox("Enter Column Letter where you want to add a column:", _
"What Column?")
If varUserInput = "" Then Exit Sub
Columns(varUserInput).Insert
Exit Sub
M:
MsgBox "You did not enter a letter character into the InputBox" & vbNewLine & "Try again"
End Sub

 

[SeanOZ]

Thank you so much for your help with my question.

Kind regards,

Sean

 

[My Aswer Is This]

Glad I was able to help you.
Come back here to Mr. Excel next time you need additional assistance.
Do you still need more help?

Thank you so much for your help with my question.

Kind regards,

Sean