Originally Posted by
JKwan
You are missing the period in front of all your commands
If you don't fully qualify your commands, then it will be whatever your active sheet
when I add the periods (see below), I receive the following error message: run-time error '1004' Select method of Range class failed
Sub Number_Conversion_Macro()
With Worksheets("Sold to Breakout")
.Range("B1").Select
Selection.Copy
.Range("B3").Select
.Range(Selection, Selection.End(xlDown)).Select
.Range(Selection, Selection.End(xlDown)).Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlMultiply, _
SkipBlanks:=True, Transpose:=True
.Range("d1").Select
Selection.Copy
.Range("d3").Select
.Range(Selection, Selection.End(xlDown)).Select
.Range(Selection, Selection.End(xlDown)).Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlMultiply, _
SkipBlanks:=True, Transpose:=True
.Range("f1").Select
Selection.Copy
.Range("f3").Select
.Range(Selection, Selection.End(xlDown)).Select
.Range(Selection, Selection.End(xlDown)).Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlMultiply, _
SkipBlanks:=True, Transpose:=True
.Range("h1").Select
Selection.Copy
.Range("h3").Select
.Range(Selection, Selection.End(xlDown)).Select
.Range(Selection, Selection.End(xlDown)).Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlMultiply, _
SkipBlanks:=True, Transpose:=True
End With
End Sub