Ændre en konstant

Svaret på dit spm er:
slet din nuværende linie
indsæt denne i kode: sCellToWriteIn = Sheets("ark2").Range("A2")

Meeeen dit konstant navn tyder på at den ikke helt bliver brugt som du antyder??

Jeg tror du har ret! Fordi jeg får fjelmeddelse
her kan du se kode:
Sub data()

' Makro indspillet 20-03-2006 af Alen

    Range("C1").Select
    Range("C1").Cut Destination:=Range("C3")
    Rows("1:2").Select
    Selection.Delete Shift:=xlUp
    Selection.AutoFilter
    Selection.AutoFilter Field:=1, Criteria1:="=0620", _
        Operator:=xlOr, Criteria2:="=0621"
    Columns("B:C").Select
    Selection.Copy
    Sheets.Add
    ActiveSheet.Paste
    Const sSalesSheetName As String = "Ark1"
Const sCellToWriteIn As String = "az33"

Dim salesFile(1 To 3)
salesFile(1) = "A:\150.xls"
salesFile(2) = "A:\180.xls"
salesFile(3) = "A:\200.xls"


Dim iSalesNo As Integer
Dim wkbNew As Excel.Workbook
Dim wkbSales As Excel.Workbook
Dim wksImport As Excel.Worksheet
Dim wksView As Excel.Worksheet
Dim lRowFrom As Long
Dim lRowTo As Long
Dim bFound As Boolean
Dim colFound As New Collection

'On Error GoTo CleanUp
Set wkbNew = ActiveWorkbook
Set wksImport = wkbNew.ActiveSheet

For iSalesNo = LBound(salesFile) To UBound(salesFile)
Set wkbSales = Application.Workbooks.Open(Filename:=salesFile(iSalesNo))
Set wksView = wkbSales.Worksheets(sSalesSheetName)

' 2-tallet her bestemmer hvilken
' række det første kundenr findes i( Update-filen)
For lRowFrom = 2 To wksImport.UsedRange.Rows.Count
bFound = False
' 3-tallet her bestemmer hvilken række
' det første kundenrfindes i(Salgsview - filen)
For lRowTo = 3 To wksView.UsedRange.Rows.Count
If Val(wksImport.Cells(lRowFrom, 1).Value) = _
wksView.Cells(lRowTo, 2).Value Then
wksView.Cells( _
lRowTo, _
wksView.Range(sCellToWriteIn).Column _
).Value = _
wksImport.Cells(lRowFrom, 2).Value
bFound = True
Exit For
End If
Next lRowTo
  If bFound Then
                On Error Resume Next
                'colFound.Add wksImport.Cells(lRowFrom, 1).Address, CStr(wksImport.Cells(lRowFrom, 1).Address)
                colFound.Add wksImport.Cells(lRowFrom, 1).Row, CStr(wksImport.Cells(lRowFrom, 1).Row)
                On Error GoTo 0
            End If

Next lRowFrom
wkbSales.Close savechanges:=True
Next iSalesNo
'Color all cells in A red
    wksImport.Range("A2:A" & CStr(wksImport.UsedRange.Rows.Count)).Interior.ColorIndex = 0
    'Remove the red colort from found cells.
    For lRowFrom = 1 To colFound.Count
        wksImport.Cells(colFound(lRowFrom), 1).Interior.ColorIndex = 1
    Next lRowFrom

CleanUp:
Set wksImport = Nothing
Set wksView = Nothing
Set wkbNew = Nothing
Set wkbSales = Nothing
End Sub

Prøv at ændre din konstant til at være en variabel. Konstanter er jo karakteriseret ved at blive tildelt en værdi en gang for alle. Den går ikke, hvis værdien skal hentes fra en celle i regnearket, der pr. defintion er variabel.

ok, jeg glemte lige deklarere variabel
Dim CellToWriteIn as String
sCellToWriteIn = Sheets("ark2").Range("A2")

Tak jkrons og jlemming!

Velbekomme
Ja, som jeg skrev skulle slette din nuværende linie :-)