Is there a way to make this code go to the next available row below and if the cell it is looking at is blank, to end the code.
The picnme for the next code would equal
picnme= Range("N7")
and the first part of the code would then say
Range("H7").select
Rather than going and typing each line in sequence, is there a way to make this code go to the next row down and follow the same procedures, and loop?
Code:
Dim picnme As String
Dim rng As Range
picnme = Range("N6")
Range("H6").Select
ActiveSheet.Pictures.Insert( _
"C:\Documents and Settings\Pictures\" & picnme & ".jpg").Select
Selection.ShapeRange.ScaleHeight 0.53, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleWidth 0.88, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 1.08, msoFalse, msoScaleFromTopLeft
The picnme for the next code would equal
picnme= Range("N7")
and the first part of the code would then say
Range("H7").select
Rather than going and typing each line in sequence, is there a way to make this code go to the next row down and follow the same procedures, and loop?