Heres the Macro i have created so far its not much of one really as im
quite new to this this opens 4 cells. I want to put a ebay html
template now split into 4. and what i want to do is make listings
easier for me in ebay using excel. I export turbo lister template
from TL to excel then i want to split the HTML up into 4 cells if that
makes any sense to i can then add shortdescription/description/image/
then group it all together using a macro. I basically want to make my
template look nice without much effort so i can multiple list. any
help
Sub MakingDescriptionColumns()
'
' MakingDescriptionColumns Macro
' Making Description Columns
'
' Keyboard Shortcut: Ctrl+Shift+Z
'
Columns("H:H").Select
Selection.Insert Shift:=xlToRight,
CopyOrigin:=xlFormatFromLeftOrAbove
Selection.Insert Shift:=xlToRight,
CopyOrigin:=xlFormatFromLeftOrAbove
Columns("H:H").Select
Selection.Insert Shift:=xlToRight,
CopyOrigin:=xlFormatFromLeftOrAbove
Columns("H:H").Select
Selection.Insert Shift:=xlToRight,
CopyOrigin:=xlFormatFromLeftOrAbove
Range("H:H").Select
ActiveCell.FormulaR1C1 = "Description A"
Range("I:I").Select
ActiveCell.FormulaR1C1 = "Description B"
Range("J:J").Select
ActiveCell.FormulaR1C1 = "Description C"
Range("K:K").Select
ActiveCell.FormulaR1C1 = "Description D"
End Sub