Using the Find function, Error 1004

[stinkingcedar]

Hey guys, here is my code:

Option Explicit

Public Sub TEST()


Dim ProjectName As String
Dim StartCellRow As Double, StartCellColumn As Double
Dim Start As Range






ProjectName = Sheets("Sheet1").Range("C1").Text


Start = Sheets("Sheet2").Range("A").Find(ProjectName)


StartCellRow = Start.Row
StartCellColumn = 6


End Sub

Keep getting an error on the start= line.

 

[Jonmo1]

Range("A") should probably be Range("A:A")

 

[stinkingcedar]

Just changed that, now getting an error type 91 object variable or with variable not set

 

[Jonmo1]

Try

Set Start = Sheets("Sheet2").Range("A:A").Find(ProjectName)