Convert Range to Activesheet.Cells

[if1467]

Is there a way that I can convert

Range("A1:C1,A3:C6,A8:C11").Select

to the activesheets.ce lls format.

I am trying to select multiple cells with variable references.

Thanks

[kadghar]

Is there a way that I can convert

Range("A1:C1,A3:C6,A8:C11").Select

to the activesheets.ce lls format.

I am trying to select multiple cells with variable references.

Thanks

sure, just dont select the range so quickly
do something like

[CODE=vb]Worksheets("des tination").rang e("a1:c1").fo nt = activesheets.ce lls.font[/CODE]

and the same for every "format" you wish to copy

[if1467]

Let me try to rephrase this. I am trying to do a Selection.Find on a range of cells.

Example:

Range("B6:B8").Select
Selection.Find(What:=dateref, LookIn:=xlValues, LookAt _
        :=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=False).Activate

My problem is that I need to have the range that I search be variable. I only know how to use ActiveSheet.Cel ls(rownum, colnum) to select a single cell. Is there a way to do this for multiple cells?

[kadghar]

Let me try to rephrase this. I am trying to do a Selection.Find on a range of cells.

Example:

Range("B6:B8").Select
Selection.Find(What:=dateref, LookIn:=xlValues, LookAt _
        :=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=False).Activate

My problem is that I need to have the range that I search be variable. I only know how to use ActiveSheet.Cel ls(rownum, colnum) to select a single cell. Is there a way to do this for multiple cells?

oops, sorry

there's one way to use Range with cells:

Range(cells(1,1 ),cells(5,5)) will select the first 25 cells ^.^